![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
hackoofr
![:salut:](https://www.developpez.net/forums/images/smilies/salut.gif)
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..![:D](https://www.developpez.net/forums/images/smilies/icon_biggrin.gif)
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