Welcome to FreeSoftwareServers Confluence Wiki


Sub DelFileTest()
Call DeleteFile(Environ("USERPROFILE") & "\Downloads\Temp.xlsx")
End Sub

Function FileExists(ByVal FileToTest As String) As Boolean
   FileExists = (Dir(FileToTest) <> "")
End Function
Sub DeleteFile(ByVal FileToDelete As String)
   If FileExists(FileToDelete) Then 'See above
      ' First remove readonly attribute, if set
      SetAttr FileToDelete, vbNormal
      ' Then delete the file
      Kill FileToDelete
   End If
End Sub
  • No labels