HTA répertoire courant.

Invité · 07/05/2019, 11h26

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DossProg = Replace(ScriptFullName, ScriptName, "")
Prog1 = DossProg & "Progs\MonProg.exe"

Merci pour votre aide!

**ProgElecT** · 07/05/2019, 12h02

Salut
Peut être

Code HTA :

Sélectionner tout - Visualiser dans une fenêtre à part

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>

Invité · 07/05/2019, 13h47

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

HTA répertoire courant.

VBScript

Discussions similaires

Partager

Partager