[vbs] Ouvrire un fichier en utilisant une variable ex: %ProgramFiles%
Bonjour a tous,
Je revien encourt une foi ver vous en espérant obtenir de l'aide et Merci D'avance,
Je veux ouvrire un fichier en utilisant une variable ex: %ProgramFiles% en vbs :roll:
[vbs] Ouvrire un fichier en utilisant une variable ex: %ProgramFiles%
Bonjour,
J'ai trouvé 2 solution sur 10 page que j'avais fouiller mais aucune ne marche pour mon système ( Windows 7-64 )
Solution 1: ici
Solution 2: ici
Cordialement.
Un Exemple pour exécuter FireFox,Winrar et FileZilla
:salut:
Un Exemple pour exécuter FireFox,Winrar et FileZilla :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| Option Explicit
Dim FireFox,Winrar,FileZilla
FireFox = "CD /D "& DblQuote("%Programfiles%\Mozilla Firefox\") &" & Start FireFox.exe"
Winrar = "CD /D "& DblQuote("%Programfiles%\WinRAR\") &" & Start Winrar.exe"
FileZilla = "CD /D "& DblQuote("%Programfiles%\FileZilla FTP Client\") &" & Start filezilla.exe"
Call Executer(FireFox,0) 'Sans affichage de la console
Call Executer(Winrar,1) 'Avec affichage de la console
Call Executer(FileZilla,0) 'Sans affichage de la console
'****************************************************************************************************
Function Executer(StrCmd,Console)
Dim ws,MyCmd,Resultat
Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
If Console = 0 Then
MyCmd = "CMD /C " & StrCmd & ""
Resultat = ws.run(MyCmd,Console,True)
If Resultat = 0 Then
Else
MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
End If
End If
'La valeur 1 pour montrer la console MS-DOS
If Console = 1 Then
MyCmd = "CMD /K " & StrCmd & ""
Resultat = ws.run(MyCmd,Console,False)
If Resultat = 0 Then
Else
MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
End If
End If
Executer = Resultat
End Function
'****************************************************************************************************
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
'**************************************************************************************************** |
[vbs] Ouvrire un fichier en utilisant une variable ex: %ProgramFiles%
Salut,
Merci pour ta réponse la méthode cmd je connais déjà je cherche une façon 100% vbs
[vbs] Ouvrire un fichier en utilisant une variable ex: %ProgramFiles%
Merci Hackoofr,
C'est pile ce que je cherche Merci Pour L'aide.