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
Message édité par noprob le 30-05-2005 à 14:57:32