Copie de fichier accés refusé

Bonjour, j'ai un script pour copier un répertoire:

Code:

---

1 2 3 4

Set FSO = CreateObject("Scripting.FileSystemObject") ' Pour la copie de fichiers et de dossiers.   Variable = MsgBox("veut tu sauvegarder le répertoire temp de la clé ?", vbYesNo) FSO.CopyFolder "" & Left(WScript.ScriptFullName, 2) & "\Temp", "Z:\Ma clé USB\Temp"

---

Mais une erreur me dit accé refusé, sauriez vous ce qui peut coser ca ?

Ben déjà vérifie l'existence de ton accès.

Code:

---

1 2 3 4 5 6 7 8 9

Set FSO = CreateObject("Scripting.FileSystemObject") ' Pour la copie de fichiers et de dossiers.   Variable = MsgBox("veut tu sauvegarder le répertoire temp de la clé ?", vbYesNo)   if fso.folderexist(Left(WScript.ScriptFullName, 2) & "\Temp") and fso.folderexist("Z:\Ma clé USB\Temp") and Variable = VbYes Then FSO.CopyFolder "" & Left(WScript.ScriptFullName, 2) & "\Temp", "Z:\Ma clé USB\Temp" end if

---

Ensuite si cela te dit toujours accès refusé vérifie les droits sur les répertoires source et destination.

bonjour,et merci beaucoup ;)

En fait ca venai du répertoire source, dés que je l'ai supprimer ca a fonctionner :D

Aurait tu la syntaxe pour supprimer un répertoire ?

Code:

---

1 2 3 4

Dim fsoFolder as Object Set fsoFolder = fso.getFolder(Path) fsofolder.delete

---

oui tout à fait

merci encore ;)