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