Exclui um arquivo especificado.
Sintaxe
object.DeleteFile (filespec)
Argumentos:
FileSystemObject.Comentários
Ocorrerá um erro se nenhum arquivo correspondente for encontrado. O método DeleteFile é interrompido no primeiro erro que encontra. Nenhuma tentativa é feita para reverter ou desfazer as alterações feitas antes de um erro ocorrer.
O exemplo a seguir ilustra o uso do método DeleteFile.
Exemplo 1:
Sub DeleteSingleFile()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\example1.txt") ' Deletes the specified file.
Set fso = Nothing
End Sub
Call DeleteSingleFile
Nota:
Use o método FileExists para verificar a existência do arquivo e, em seguida, use DeleteFile.
Exemplo 2:
Sub CheckAndDeleteFile()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\example2.txt") Then
fso.DeleteFile("C:\example2.txt") ' Deletes the specified file.
End If
Set fso = Nothing
End Sub