Discussion :

[Sun2k]

Bonsoir

Cette question car "Program Files" s'appel "programme" dans vista et seven..

Code :

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

1
2
3
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder "Mondossier", "C:\Program Files"

[hackoofr]

Essayez ce code :

Code :

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

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

[Sun2k]

Essayez ce code :

Code :

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

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 ?

Code :

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

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)

Code :

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

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

[hackoofr]

Code :

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

1
2
3
4
5
6
Dim FSO,WS,ProgramFiles
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("WScript.shell")
ProgramFiles = WS.ExpandEnvironmentStrings("%programfiles%")
set oFld = FSO.GetFolder("d:\MonDossier")'chemin de votre dossier par exemple s'il se trouve dans la racine D:\
oFld.Copy ProgramFiles & "\MonDossier",True

[Sun2k]

Merci super

Quel est la différence entre les 2 codes?

Est-ce que le dernier code fonctionne sous vista et seven sans rien changer?

[hackoofr]

Quel est la différence entre les 2 codes?
Est-ce que le dernier code fonctionne sous vista et seven sans rien changer?

Dans la Vbscript : Comment copier un répertoire et son contenu ?

Il faut tester si ça fonctionne ou pas sous Vista et Seven mais je crois que ça devrait marcher

[Sun2k]

Merci.. pas mal la FAQ

Par contre j'ai testé le code sous vista et il détecte une erreur a la ligne 6..

[hackoofr]

Par contre j'ai testé le code sous vista et il détecte une erreur a la ligne 6..

C'est quoi exactement l'erreur càd son contenu

[Sun2k]

Voici le message d'erreur :



Merci encore de m'aider..

[hackoofr]

Peut-être à cause de L'UAC qui est encore activé. ou bien vous n'avez pas la permission de copier ce dossier dans le program files en tant qu'utilisateur normal avec des privilèges restreints.

L'UAC (User Account Control) est une nouvelle fonctionnalité dans Windows Vista, sa fonction est de contrôler l'installation et l'administration de l'ordinateur en demandant une augmentation de privilège. Seulement lorsque vous êtes administrateur de votre ordinateur et seul utilisateur, il peut être intéressant de pouvoir l'enlever. Pour se faire allez dans le "Panneau de configuration" puis cliquer sur "Comptes d'utilisateurs". Dans la nouvelle fenêtre cliquer encore une fois sur "Comptes d'utilisateurs".
Ensuite en bas cliquer sur "activer ou désactiver le contrôle des comptes d'utilisateurs". Dans la fenêtre en résultant décocher la case "utiliser le contrôle des comptes d'utilisateurs pour vous aider à protéger votre ordinateur"
et cliquer sur OK.
Il vous sera demandé de redémarrer. Sitôt l'ordinateur redémarré, vous n'aurez plus d'assombrissement de la luminosité de votre écran avec la demande de votre autorisation pour continuer à installer un logiciel ou modifier un paramètre.

[Sun2k]

Ok merci.. je vais voir de ce coté la..