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 vote125 views1 answer
Remove last 8 characters from string vb
VBA
0 vote138 views1 answer
Excel vba round to whole number
VBA
0 vote115 views1 answer
Vba timestamp -- milliseconds
VBA
5 votes152 views1 answer
Excel vba get user selected range
VBA
0 vote129 views1 answer
Excel delete ever other vba
VBA
-1 vote113 views1 answer
Vba sendkeys
VBA
3 votes140 views1 answer
Extract word in a text in excel
VBA
3 votes152 views2 answers
Vba date to string
VBA
3 votes131 views1 answer
Vba continue for each loop
VBA
0 vote119 views1 answer
Returns an array from function vba
VBA