HTA répertoire courant.

Version imprimable

07/05/2019, 11h26
Invité

HTA répertoire courant.
Bonjour,
Pourriez-vous me dire ce qui ne va pas avec ma déclaration du répertoire courant?
Sous VBS ceci fonctionne:
Code:

1 2 DossProg = Replace(WScript.ScriptFullName,WScript.ScriptName,"") Prog1 = DossProg & "Progs\MonProg.exe"
Sous HTA qui n'aime pas WScript ceci ne fonctionne pas:
Code:

1 2 DossProg = Replace(ScriptFullName, ScriptName, "") Prog1 = DossProg & "Progs\MonProg.exe"
Merci pour votre aide!

Salut
Peut être

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<HEAD>
<TITLE> Récuperer le dossier racine d'un HTA </TITLE>
<HTA:APPLICATION
                Id = "RacineHTA"
 </HEAD>
 <script language="VBScript">
        'Déclarations utilisables dans toute la partie VBScript
        Dim DossierRacineDuProg
 '----------------------------------------------------------------------------------------------------------------------
 Sub Window_Onload()
        Dim ChemNomComplet
        ChemNomComplet = RacineHTA.CommandLine ' ChemNomComplet = Id du programme.CommandLine
        DossierRacineDuProg = Left(ChemNomComplet, (InStrRev(ChemNomComplet, "\", -1, vbTextCompare)))
        DossierRacineDuProg = Replace(DossierRacineDuProg,Chr(34),"")
        Infos1.innerText = "Chemin et nom du programme en cours: " & vbNewLine & ChemNomComplet
        Infos2.innerText = "Dossier racine du programme en cours: " & vbNewLine & DossierRacineDuProg
End Sub
</SCRIPT>
<body>
        <Div Id="Infos1"> </Div>
        <Br>
        <Div Id="Infos2"> </Div>
</body>

L’essayer c'est l'adopter, sympa l'approche de la détection du répertoire racine!

Code:

1
2
3
4
5
6
7
8
9
Sub Run(var)
Set WS = CreateObject("WScript.shell")
	Select Case var
		Case 1
			WS.Run DossierRacineDuProg  & "Mes_programmes\Mon_Appli.exe"
		Case 2
			WS.Run DossierRacineDuProg  & "Mes_programmes\Mon_Appli_2.exe"
	End select
End Sub

Merci