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

4 votes214 views2 answers
Excel vba last column with data
VBA
0 vote238 views1 answer
Group controls programmatically vb
VBA
0 vote211 views1 answer
Rotate image by any angle vb.net
VBA
5 votes232 views1 answer
Excel vba right word from Long Integer
VBA
3 votes202 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote207 views1 answer
Excel vba send HTTP POST to server
VBA
0 vote205 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote281 views1 answer
Excel vba add reference programmatically
VBA
25 votes541 views3 answers
String to date vb
VBA
0 vote208 views1 answer
Excel vba existence of a file
VBA