script permettant d'ouvrir le répertoire Windows sous tout type de windows

Version imprimable

04/05/2011, 10h49
Ueyama

script permettant d'ouvrir le répertoire Windows sous tout type de windows

Bonjour tout le monde,

Voila, étant nouveau dans le monde du vbscript, je recherche un script permettant d'ouvrir le répertoire Windows sous n'importe quel version de celui ci afin de copier un fichier dedans en remplaçant l'ancien.

En gros je voudrais ouvrir l'explorateur de Windows 2000 à 7 afin d'y copier un fichier.

Merci pour vos futurs réponses.

Citation:

Envoyé par Ueyama

Bonjour tout le monde,
Voila, étant nouveau dans le monde du vbscript, je recherche un script permettant d'ouvrir le répertoire Windows sous n'importe quel version de celui ci afin de copier un fichier dedans en remplaçant l'ancien.
En gros je voudrais ouvrir l'explorateur de Windows 2000 à 7 afin d'y copier un fichier.
Merci pour vos futurs réponses.

:salut: et Bienvenue au Club ;)
Voila essaye ce Code :
Code:

1 2 3 4 5 6 7 8 9 Set FSO = WScript.CreateObject("Scripting.FileSystemObject") windir=FSO.GetSpecialFolder(0) Call Explorer(windir) Function Explorer(File) Set ws=CreateObject("wscript.shell") ws.run "Explorer "& File & "\" end Function

04/05/2011, 11h47
Ueyama

Merci pour ton aide hackoofr ce bout de script va énormément m'aider.
04/05/2011, 12h07
hackoofr

Citation:

Envoyé par Ueyama

Merci pour ton aide hackoofr ce bout de script va énormément m'aider.

:salut: Si ça marche ce script pour vous alors n'oubliez pas de voter pour ce message (en bas à droite du cadrant) et si votre Problème est résolu pensez a cliquer sur le Tag :resolu: en bas de la page
:merci:

salut,

sans passer par un objet FileSystemObject:
Code:

1 2 3 Set ws=CreateObject("wscript.shell") win=ws.ExpandEnvironmentStrings("%windir%") ws.run "Explorer " & win
ou bien, plus concis:
Code:

1 2 Set ws=CreateObject("wscript.shell") ws.run "shell:windows"

05/05/2011, 13h35
ced600
Citation:
Envoyé par I'm_HERE

salut,

sans passer par un objet FileSystemObject:

Code:

1 2 3 Set ws=CreateObject("wscript.shell") win=ws.ExpandEnvironmentStrings("%windir%") ws.run "Explorer " & win

ou bien, plus concis:

Code:

1 2 Set ws=CreateObject("wscript.shell") ws.run "shell:windows"
A suposer qu'il ne souhaite pas automatiser la fin de sa phrase :

Citation:

Voila, étant nouveau dans le monde du vbscript, je recherche un script permettant d'ouvrir le répertoire Windows sous n'importe quel version de celui ci afin de copier un fichier dedans en remplaçant l'ancien.