program file x86

Version imprimable

07/10/2013, 12h15
sovan

program file x86
Bonjour,

Quelqu'un sait comment déclarer une variable Programmefiles avec (x86) ???
Code:

1 2 3 ProgramFi = objShell.ExpandEnvironmentStrings("%CommonProgramFiles(x86)%") IElien = ProgramFi & "\Internet Explorer\iexplore.exe"
Quand j'ai exécuté une commande et bien j'ai un message Erreur avec des parenthèse (x86) :aie:

Vous avez comment enlever ça ?

Je vous remercie d'avance !!!

:salut: une autre façon de voir les choses :zoubi:

Code:

1
2
3
4
5
6
7
8
Sub Start(Process)
Dim Ws,Command,Execution
    Set Ws = CreateObject("WScript.Shell")
    Command = "cmd /c Start "&Process&""
    Execution = Ws.Run(Command,0,True)
End Sub
 
Start("iexplore.exe")

J'attends toujours mes +1 :plusser: :mouarf:

Merci hackoofr

Je crois que je me suis mal exprimé dsl
Je n'utilise pas seulement que Iexplorer !

En fait :

Voici le scripte

il ya une erreur sur le chemin programfile(x86)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<INPUT TYPE=""button"" STYLE=""HEIGHT:25;WIDTH:165"" NAME=""LogiBor"" VALUE=""Appliquer"" onClick=""RunAppl(1)"">
				dim AdmPsec(1)
				AdmPsec(0) = "psexec.exe -u admin -p pass"
				AdmPsec(1) = "psexec.exe -u administrateur -p password"
				Dim IElien(1) 
				IElien(0) = "C:\Program Files\Internet Explorer\iexplore.exe"
				IElien(1) = "C:\Program Files(x86)\Internet Explorer\iexplore.exe"
				Sub RunAppl(var)
				Set WS = CreateObject("WScript.shell")
				For I = 0 to 1
				Select Case var
				Case 1 WS.run " AdmPsec(I) , IElien(I) & " http://Serveur1/Current/ChannelManager?start"
				End select
				next
				End Sub

Je ne sais pas comment t'expliquer ça c'est la parenthèse (x86) !!

:salut:

Code:

1
2
3
4
5
6
7
MsgBox "Le chemin de Program Files est :" & VBCRLF & CheminProgramFiles,64,"Chemin de Program Files"
 
Function CheminProgramFiles()
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
CheminProgramFiles = WshShell.ExpandEnvironmentStrings("%programFiles%")
End Function

07/10/2013, 15h36
sovan

Mais sur le lecteur C: il y a deux dossiers ( c:\programme files ) et (c:\Programme files(x86))

Ton scripte va pointer sur le (c:\programme files ) non ?
07/10/2013, 15h43
hackoofr

Citation:

Envoyé par sovan

Mais sur le lecteur C: il y a deux dossiers ( c:\programme files ) et (c:\Programme files(x86))
Ton scripte va pointer sur le (c:\programme files ) non ?

Aucune idée :koi: c'est toi qui teste et tu me dis ça retourne quoi :roll:
ton système est windows 7 (64 bits) :koi:
07/10/2013, 16h41
sovan

Oui c'est moi qui teste sur Windows 7 (64bit)!!

C'est chelou avec (X86) si j’enlève les parenthèse, il dit que le dossiers n'existe pas !!

:cry:

:salut:
Puisque je n'ai pas de dossier nommé : C:\Program Files(x86), alors je l'ai crée, et ça fonctionne chez moi 5/5 :zoubi: :king:
Donc, c'est a vous de me dire si marche chez vous ou non :mouarf:
Code:

1 2 3 4 5 6 7 8 9 10 Dim Ws,x86 Set Ws = CreateObject("Wscript.Shell") x86 = "C:\Program Files(x86)\Changer_Fond_Ecran.hta" ws.run DblQuote(x86) '***************************************************************** 'Fonction pour ajouter les doubles quotes dans une variable Function DblQuote(strIn) DblQuote = Chr(34) & strIn & Chr(34) End Function '*****************************************************************

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim CheminProgramFiles
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
 
On Error Resume Next
CheminProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
If Err Then
        CheminProgramFiles = WshShell.ExpandEnvironmentStrings("%programFiles%")
End If
MsgBox CheminProgramFiles, vbInformation
Set WshShell = Nothing