Discussion :

[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.

[hackoofr]

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.

et Bienvenue au Club
Voila essaye ce Code :

Code :

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

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

[Ueyama]

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

[hackoofr]

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

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 en bas de la page

[I'm_HERE]

salut,

sans passer par un objet FileSystemObject:

Code :

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

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

ou bien, plus concis:

Code :

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

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

[ced600]

salut,

sans passer par un objet FileSystemObject:

Code :

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

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

ou bien, plus concis:

Code :

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

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

A suposer qu'il ne souhaite pas automatiser la fin de sa phrase :

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.