Supprime un fichier spécifié.
Syntaxe
object.DeleteFile (filespec)
Arguments :
FileSystemObject.Remarques
Une erreur survient si aucun fichier correspondant n'est trouvé. La méthode DeleteFile s'arrête à la première erreur rencontrée. Aucune tentative n'est effectuée pour restaurer les éléments ou annuler les modifications apportées avant la survenue de l'erreur.
Les exemples suivants illustrent l'utilisation de la méthode DeleteFile.
Exemple 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
Remarque :
Utilisez la méthode FileExists pour vérifier que le fichier existe, puis utilisez DeleteFile.
Exemple 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