|
|
|
|
Slt,
' Utilisation du Input
msgTexte = "Entrez le nom du fichier : " & vbCrLf & vbCrLf & _
"(ex.: C:\MonFichier.txt)" & vbCrLf
Fichier = InputBox(msgTexte, "Saisie de l'emplacement du fichier à créer", _
"C:\Ce_Fichier.txt")
WScript.Echo("Aucune fichier n'a été créé ! - " & Fichier)
WScript.Quit
Lupin |