Vba delete file

' Needs to add "Microsoft Scripting Runtime" reference to your file
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

Source: stackoverflow.com

Similar codes

0 vote150 views1 answer
Vba static variable
VBA
0 vote107 views1 answer
Vba code to remove leading and trailing spaces
VBA
2 votes148 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote102 views1 answer
Vbide vbproject reference
VBA
2 votes152 views1 answer
Excel vba date to string conversion
VBA
1 vote159 views1 answer
Find and replace textbox
VBA
0 vote156 views1 answer
Vba exit while
VBA
0 vote145 views1 answer
Vbnet check if string is only symbols
VBA
-1 vote151 views1 answer
Vba code to add new column in table
VBA
0 vote159 views1 answer
Vb run command
VBA