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 vote349 views1 answer
Vba argument is set
VBA
0 vote407 views1 answer
Method showalldata of object _worksheet failed vba
VBA
22 votes865 views1 answer
Excelvba check for directory
VBA
0 vote365 views1 answer
Excel vba calculate
VBA
0 vote341 views1 answer
How to make a if statement with vbs
VBA
3 votes370 views1 answer
Extract the nth word from a text string
VBA
0 vote378 views1 answer
Vba cell all borders
VBA
0 vote340 views1 answer
Do until vb.net
VBA
1 vote344 views1 answer
Close form vba
VBA
3 votes389 views1 answer
Vba make long from two words
VBA