Envoyé par
hackoofr
Essayez ce code :
1 2 3 4 5 6
| Dim FSO,WS
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("WScript.shell")
ProgramFiles = WS.ExpandEnvironmentStrings("%programfiles%")
MsgBox ProgramFiles,64,ProgramFiles
FSO.CopyFolder "Mondossier", ProgramFiles |
Merci..
Je l'ai essayé sur xp et ça marche, il fonctionne vraiment sous vista et seven?
Pour éviter la confirmation via la petite fenêtre il faut que j’enlève cette ligne sur ton code ?
MsgBox ProgramFiles,64,ProgramFiles
Un dernier truc, lorsque je copie "Mondossier" dans Program files je copie que le contenu et non "Mondossier" alors j'ai fais ça mais avec une erreur a la derniere ligne (6)
1 2 3 4 5 6
| Dim FSO,WS
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("WScript.shell")
ProgramFiles = WS.ExpandEnvironmentStrings("%programfiles%")
MsgBox ProgramFiles,64,ProgramFiles
FSO.CopyFolder "Mondossier", ProgramFiles\Mondossier |
Merci de ton aide
Partager