Discussion :

[koKoTis]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[trollinou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[koKoTis]

bonjour,et merci beaucoup

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

[koKoTis]

Aurait tu la syntaxe pour supprimer un répertoire ?

[trollinou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim fsoFolder as Object
Set fsoFolder = fso.getFolder(Path)
fsofolder.delete

[trollinou]

oui tout à fait

[koKoTis]

merci encore