Bonjour, je souhaite écrire un programme qui crée un fichier.txt sur le bureau si celui ci n'existe pas.
J'ai donc écrit le programme suivant:
Set WshShell = Wscript.CreateObject("Wscript.Shell" )
Set FSys = CreateObject("Scripting.FileSystemObject" )
 
dim DesktopPath
DesktopPath=WshShell.SpecialFolders("Desktop" ) '<- chemin du bureau  
 
On Error Resume Next
FileExists = ((GetAttr("DesktopPath\fichier.txt" ) And vbDirectory) = 0) '<-chemin du fichier.txt
'Si le fichier existe c'est bon sinon le crée
If FileExists = False Then
 Set FSys = CreateObject("Scripting.FileSystemObject" )  
 Set MonFic = FSys.CreateTextFile(DesktopPath\fichier.txt)  
 MsgBox "fichier crée"
Else
 MsgBox "le fichier existe deja"
End If
 
Lorsque je le lance la MsgBox fichier crée apparait toujours que le fichier soit crée ou non... Où est l erreur ?  
 
Merci d'avance  

Bon je viens de résoudre le problème
il fallait mettre Desktop& "\fichier.txt" a chaque fois!
J'espère que cela sera utile pour certains