Comment ouvrir l'explorateur Windows dans un dossier précis avec mon lanceur d'applications écrit en VBScript ?

Discussion:

(trop ancien pour répondre)

tintin92

2004-10-12 21:18:43 UTC

Bonjour,

Je viens d'écrire un script en VBS pour me permettre de lancer des
programmes.
Je souhaiterai également ( avec le choix 3 par exemple ) pouvoir ouvrir
l'explorateur Windows dans un dossier précis, disons le répertoire :
"K:\Perso\Images", répertoire qui existe déjà.
Comment faire ?

Toute proposition d'amélioration est également bienvenue.

Merci

Mon VBScript :

' ----------------------------------------------------------
' Lanceur.vbs version 1.0.0
' Script VBS de lancement d'applications
' Tintin92
' ----------------------------------------------------------
Option Explicit

Dim msg, Input
Dim oShell
Dim WshShell, oExec

msg=msg & "------------------------------------------" & VBCRLF
msg=msg & " LANCEUR Version 1.0.0" & VBCRLF
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & " Choix 1 : Lance une invite de commande" & VBCRLF
msg=msg & " Choix 2 : Lance la calculette Windows" & VBCRLF

Input = ""
Input = InputBox( msg,"Lanceur version 1.0.0")

Select Case Input
Case "1"
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:\ & Dir"

Case "2"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("calc")

Case Else
MsgBox "Saisie erronée"

End Select

Paul Atreide

2004-10-12 21:59:14 UTC

Permalink

Salut ...

Essayes ca :

...
msg=msg & " Choix 3 : Acces C:\tmp" & VBCRLF
...
Case "3"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer C:\Tmp")
--
A+
Muad'Dib
"L'ombre de la souris dans la seconde lune"

Post by tintin92
Bonjour,
Je viens d'écrire un script en VBS pour me permettre de lancer des
programmes.
Je souhaiterai également ( avec le choix 3 par exemple ) pouvoir ouvrir
"K:\Perso\Images", répertoire qui existe déjà.
Comment faire ?
Toute proposition d'amélioration est également bienvenue.
Merci
' ----------------------------------------------------------
' Lanceur.vbs version 1.0.0
' Script VBS de lancement d'applications
' Tintin92
' ----------------------------------------------------------
Option Explicit
Dim msg, Input
Dim oShell
Dim WshShell, oExec
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & " LANCEUR Version 1.0.0" & VBCRLF
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & " Choix 1 : Lance une invite de commande" & VBCRLF
msg=msg & " Choix 2 : Lance la calculette Windows" & VBCRLF
Input = ""
Input = InputBox( msg,"Lanceur version 1.0.0")
Select Case Input
Case "1"
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:\ & Dir"
Case "2"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("calc")
Case Else
MsgBox "Saisie erronée"
End Select

scraper

2004-10-13 00:34:49 UTC

Permalink

Bonjour Paul Atreide

Post by Paul Atreide
Case "3"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer C:\Tmp")

Case "3"
Dim objShell
Set objShell=CreaeObject("WScript.Shell")
objShell.Run "C:\Temp"

devrait t'emmener au même endroit ;-)

--
Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

Jean

2004-10-13 12:29:24 UTC

Permalink

Bonjour,

Post by scraper
devrait t'emmener au même endroit ;-)

Pas forcément, les variables TEMP et TMP peuvent être définies sur des répertoires différents ;-)

cf script plus haut:
---bla bla---
Case "3"
Executer "%temp%"
If Valeur_Variable("%temp%")_
<>_
Valeur_Variable("%tmp%") Then _
Executer "%tmp%"
---bla bla---

Amicalement,

Jean - JMST
Belgium

Post by scraper
Bonjour Paul Atreide

Post by Paul Atreide
Case "3"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer C:\Tmp")

Case "3"
Dim objShell
Set objShell=CreaeObject("WScript.Shell")
objShell.Run "C:\Temp"
devrait t'emmener au même endroit ;-)
--
Attention ! Adresse mail invalide ...
http://scraper.chez.tiscali.fr/contact.htm
scraper

tintin92

2004-10-13 07:36:19 UTC

Permalink

Bonjour,

Merci à tout ceux qui m'ont répondu.
Maintenant l'explorateur fait presque ce que je veux avec cette commande :

Case "4"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer /e,/select,C:\WINNT\Temp ")

L'explorateur ouvre le bon dossier avec son affichage par défaut.
Tout est presque parfait.
Pour que tout soit vraiment parfait il faudrait que si un explorateur est
dejà ouvert, il n'en ouvre pas un second, mais mette l'explorateur déjà
ouvert au premier plan en changeant si nécessaire de répertoire.
C'est possible, ou ce n'est pas possible ?

Merci.

Tintin92

Résumé
Cet article énumère les paramètres de ligne de commande que vous pouvez
utiliser avec l'Explorateur Windows (Explorer.exe).
Plus d'informations
Explorer [/n] [/e] [(,)/root,<object>] [/select,<object>]

/n Ouvre une nouvelle fenêtre simple pour la sélection par
défaut
. Il s'agit en général de la racine du pilote sur laquelle
Windows
est installé. Si la fenêtre est déjà ouverte, un
doublon s'ouvre.

/e Ouvre l'Explorateur Windows avec son affichage par défaut.

/root,<object> Ouvre une fenêtre de l'objet spécifié.

/select,<object> Ouvre une fenêtre avec le dossier, le fichier ou
l'application choisie spécifiée.

Exemples :

Exemple 1 : Explorer /select,C:\TestDir\TestApp.exe

Ouvre une fenêtre avec TestApp sélectionné.

Exemple 2 : Explorer /e,/root,C:\TestDir\TestApp.exe

Ouvre l'Explorateur en développant C: et en sélectionnant TestApp.

Exemple 3 : Explorer /root,\\TestSvr\TestShare

Ouvre une fenêtre du partage spécifié.

Exemple 4 : Explorer /root,\\TestSvr\TestShare,select,TestApp.exe

Ouvre une fenêtre du partage spécifié avec TestApp
sélectionné.' ----------------------------------------------------------'
Lanceur.vbs version 1.0.0' Script VBS de lancement d'applications'
Tintin92'' ----------------------------------------------------------Option
ExplicitDim msg, InputDim oShellDim WshShell, oExecmsg=msg &
"-----------------------------------------------------" & VBCRLFmsg=msg & "
LANCEUR Version 1.0.0" & VBCRLFmsg=msg &
"-----------------------------------------------------" & VBCRLFmsg=msg & "
Choix 1 : Lance une invite de commande" & VBCRLFmsg=msg & " Choix 2 : Lance
la calculette Windows" & VBCRLFmsg=msg & " Choix 3 : Ouvre Lettre.rtf avec
Write.exe" & VBCRLFmsg=msg & " Choix 4 : Ouvre le dosier C:\WINNT\Temp " &
VBCRLFInput = ""Input = InputBox( msg,"Lanceur version 1.0.0")Select Case
Input Case "1" Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:\ & Dir" Case "2" Set WshShell =
CreateObject("WScript.Shell") Set oExec = WshShell.Exec("calc") Case
"3" Set WshShell = CreateObject("WScript.Shell") Set oExec =
WshShell.Exec("write.exe Lettre.rtf") Case "4" Set WshShell =
CreateObject("WScript.Shell") Set oExec = WshShell.Exec("explorer
/e,/select,C:\WINNT\Temp ") Case Else MsgBox "Saisie erronée" End
Select

Jean

2004-10-13 12:29:27 UTC

Permalink

Bonjour,

en utilisant l'objet Shell.Application :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/shell.asp

'---8<---Jean - JMST - Belgium---
msg="-----------------------------"&VbCr&_
" LANCEUR"&VbCr&_
"-----------------------------"&VbCr&_
" 1 : Lance une invite de commande"&VbCr&_
" 2 : Lance la calculette Windows"&VbCr&_
" 3 : Affiche le(s) répertoire(s) temporaire(s)"&VbCr&_
" 4 : Affiche le répertoire Windows"&VbCr

Select Case InputBox( msg,"Lanceur version 1.0.0","4")
Case ""
Case "1"
Executer "%comspec% /K dir"
Case "2"
Executer "calc.exe"
Case "3"
Explorer("%temp%")
If Valeur_Variable("%temp%")_
<>_
Valeur_Variable("%tmp%") Then _
Executer "%tmp%"
Case "4"
Explorer("%windir%")
Case Else
MsgBox "Saisie erronée"
End Select

Function Explorer(quoi)
Explorer=False
For Each w in CreateObject("Shell.Application").Windows
With w
If InStrRev(.FullName,"explorer.exe",-1,1) Then
.Visible=True
While .ReadyState<>4:WScript.Sleep 10:Wend
Activer(.HWND)
.Navigate(Valeur_Variable(quoi))
Explorer=True
Exit For
End If
End With
Next
If Not Explorer Then Executer(quoi)
End Function

Sub Executer(quoi)
CreateObject("WScript.Shell")_
.Run quoi
End Sub

Function Valeur_Variable(quoi)
Valeur_Variable=_
CreateObject("WScript.Shell")_
.ExpandEnvironmentStrings(quoi)
End Function

Sub Activer(quoi)
CreateObject("WScript.Shell")_
.AppActivate(quoi)
End Sub
'---8<---Jean - JMST - Belgium---

Amicalement,

Jean - JMST
Belgium

Post by tintin92
Bonjour,
Merci à tout ceux qui m'ont répondu.
Case "4"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer /e,/select,C:\WINNT\Temp ")
L'explorateur ouvre le bon dossier avec son affichage par défaut.
Tout est presque parfait.
Pour que tout soit vraiment parfait il faudrait que si un explorateur est
dejà ouvert, il n'en ouvre pas un second, mais mette l'explorateur déjà
ouvert au premier plan en changeant si nécessaire de répertoire.
C'est possible, ou ce n'est pas possible ?
Merci.
Tintin92
Résumé
Cet article énumère les paramètres de ligne de commande que vous pouvez
utiliser avec l'Explorateur Windows (Explorer.exe).
Plus d'informations
Explorer [/n] [/e] [(,)/root,<object>] [/select,<object>]
/n Ouvre une nouvelle fenêtre simple pour la sélection par
défaut
. Il s'agit en général de la racine du pilote sur laquelle
Windows
est installé. Si la fenêtre est déjà ouverte, un
doublon s'ouvre.
/e Ouvre l'Explorateur Windows avec son affichage par défaut.
/root,<object> Ouvre une fenêtre de l'objet spécifié.
/select,<object> Ouvre une fenêtre avec le dossier, le fichier ou
l'application choisie spécifiée.
Exemple 1 : Explorer /select,C:\TestDir\TestApp.exe
Ouvre une fenêtre avec TestApp sélectionné.
Exemple 2 : Explorer /e,/root,C:\TestDir\TestApp.exe
Ouvre l'Explorateur en développant C: et en sélectionnant TestApp.
Exemple 3 : Explorer /root,\\TestSvr\TestShare
Ouvre une fenêtre du partage spécifié.
Exemple 4 : Explorer /root,\\TestSvr\TestShare,select,TestApp.exe
Ouvre une fenêtre du partage spécifié avec TestApp
sélectionné.' ----------------------------------------------------------'
Lanceur.vbs version 1.0.0' Script VBS de lancement d'applications'
Tintin92'' ----------------------------------------------------------Option
ExplicitDim msg, InputDim oShellDim WshShell, oExecmsg=msg &
"-----------------------------------------------------" & VBCRLFmsg=msg & "
LANCEUR Version 1.0.0" & VBCRLFmsg=msg &
"-----------------------------------------------------" & VBCRLFmsg=msg & "
Choix 1 : Lance une invite de commande" & VBCRLFmsg=msg & " Choix 2 : Lance
la calculette Windows" & VBCRLFmsg=msg & " Choix 3 : Ouvre Lettre.rtf avec
Write.exe" & VBCRLFmsg=msg & " Choix 4 : Ouvre le dosier C:\WINNT\Temp " &
VBCRLFInput = ""Input = InputBox( msg,"Lanceur version 1.0.0")Select Case
Input Case "1" Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:\ & Dir" Case "2" Set WshShell =
CreateObject("WScript.Shell") Set oExec = WshShell.Exec("calc") Case
"3" Set WshShell = CreateObject("WScript.Shell") Set oExec =
WshShell.Exec("write.exe Lettre.rtf") Case "4" Set WshShell =
CreateObject("WScript.Shell") Set oExec = WshShell.Exec("explorer
/e,/select,C:\WINNT\Temp ") Case Else MsgBox "Saisie erronée" End
Select

Jean

2004-10-13 12:29:26 UTC

Permalink

Bonjour,

Pour être plus "universel", utilisez les variables d'environnement :

'---8<---Jean - JMST - Belgium---
msg="------------------------------------------"&VbCr&_
" LANCEUR Version 1.0.0"&VbCr&_
"------------------------------------------"&VbCr&_
" Choix 1 : Lance une invite de commande"&VbCr&_
" Choix 2 : Lance la calculette Windows"&VbCr&_
" Choix 3 : Affiche le(s) répertoire(s) temporaire(s)"&VbCr

Select Case InputBox( msg,"Lanceur version 1.0.0","1")
Case ""
Case "1"
Executer "%comspec% /K dir"
Case "2"
Executer "calc.exe"
Case "3"
Executer "%temp%"
If Valeur_Variable("%temp%")_
<>_
Valeur_Variable("%tmp%") Then _
Executer "%tmp%"
Case Else
MsgBox "Saisie erronée"
End Select

Sub Executer(quoi)
CreateObject("WScript.Shell").Run quoi
End Sub

Function Valeur_Variable(quoi)
Valeur_Variable=CreateObject("WScript.Shell")_
.ExpandEnvironmentStrings(quoi)
End Function
'---8<---Jean - JMST - Belgium---

Amicalement,

Jean - JMST
Belgium