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:PersoImages", 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
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:PersoImages", 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
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:PersoImages", 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
Case "3"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer C:Tmp")
Case "3"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer C:Tmp")
Case "3"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer C:Tmp")
devrait t'emmener au même endroit ;-)
Bonjour Paul Atreide
(dans news:)
tu nous disais :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
devrait t'emmener au même endroit ;-)
Bonjour Paul Atreide
(dans news:OQPv4aKsEHA.2556@tk2msftngp13.phx.gbl)
tu nous disais :
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
devrait t'emmener au même endroit ;-)
Bonjour Paul Atreide
(dans news:)
tu nous disais :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
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:PersoImages", 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
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:PersoImages", 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
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:PersoImages", 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
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:WINNTTemp ")
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:TestDirTestApp.exe
Ouvre une fenêtre avec TestApp sélectionné.
Exemple 2 : Explorer /e,/root,C:TestDirTestApp.exe
Ouvre l'Explorateur en développant C: et en sélectionnant TestApp.
Exemple 3 : Explorer /root,TestSvrTestShare
Ouvre une fenêtre du partage spécifié.
Exemple 4 : Explorer /root,TestSvrTestShare,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:WINNTTemp " &
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:WINNTTemp ") Case Else MsgBox "Saisie erronée" End
Select
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:WINNTTemp ")
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:TestDirTestApp.exe
Ouvre une fenêtre avec TestApp sélectionné.
Exemple 2 : Explorer /e,/root,C:TestDirTestApp.exe
Ouvre l'Explorateur en développant C: et en sélectionnant TestApp.
Exemple 3 : Explorer /root,\TestSvrTestShare
Ouvre une fenêtre du partage spécifié.
Exemple 4 : Explorer /root,\TestSvrTestShare,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:WINNTTemp " &
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:WINNTTemp ") Case Else MsgBox "Saisie erronée" End
Select
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:WINNTTemp ")
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:TestDirTestApp.exe
Ouvre une fenêtre avec TestApp sélectionné.
Exemple 2 : Explorer /e,/root,C:TestDirTestApp.exe
Ouvre l'Explorateur en développant C: et en sélectionnant TestApp.
Exemple 3 : Explorer /root,TestSvrTestShare
Ouvre une fenêtre du partage spécifié.
Exemple 4 : Explorer /root,TestSvrTestShare,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:WINNTTemp " &
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:WINNTTemp ") Case Else MsgBox "Saisie erronée" End
Select