Verifier la présence d'un fichier

Dim objFSO
Dim objFichier

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("C:\Lefichier.txt") Then
	Wscript.Echo "Fichier present"
	Set objFichier = objFSO.GetFile("C:\Lefichier.txt")
	Set objFichier = Nothing
Else
	Wscript.Echo "Fichier non present"
End If

Set objFSO = Nothing