Dim objFSO Dim objTextFile Dim CheminFichier Dim CheminScriptActuel 'Déclaration des constantes Const ForReading = 1 Const ForWritting = 2 Const ForAppending = 8 CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1) CheminFichier = CheminScriptActuel & "\ZZMonFichier.txt" 'Déclaration du chemin et du nom du fichier CheminFichier = Trim(InputBox("Entrez le chemin complet du fichier","Chemin complet du fichier",CheminFichier)) 'Validation du chemin et du nom du fichier If Len(CheminFichier) > 0 Then Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForAppending, True) objTextFile.WriteLine(Now) 'On ecrit la date et l'heure dans le fichier objTextFile.Close 'Fermeture du fichier Set objTextFile = Nothing Set objFSO = Nothing Else Wscript.echo "Operation annulee" End If 'CheminFichier