Suprime un archivo especificado.
Sintaxis
object.DeleteFile (filespec)
Argumentos:
FileSystemObject.Observaciones
Se produce un error si no se encuentran archivos coincidentes. El método DeleteFile se detiene en el primer error que encuentra. No se ha intentado deshacer los cambios realizados antes de que se produjera un error.
En el siguiente ejemplo se muestra el uso del método DeleteFile.
Ejemplo 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:
Utilice el método FileExists para comprobar la existencia del archivo y, a continuación, utilice DeleteFile.
Ejemplo 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