Discussion :

[b3401m]

Bonjour,

Dans un script vbs, je ne souhaite pas mettre le répertoire de stockage en dur, mais je récupère sa valeur avec le code

Code :

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

1
2
3
Set objFSO = CreateObject("Scripting.FileSystemObject")
objDskPath = objShell.SpecialFolders("Desktop")
strRepMoteur = objFSO.GetParentFolderName(WScript.ScriptFullName)

Après compilation du script, l'exécutable correspondant se lance dans un répertoire de travail temporaire et c'est cette valeur que je récupère au lieu du répertoire dans lequel se trouve le fichier.

Est-ce qu'il est possible de contourner ce problème et comment ?

Merci d'avance

[l_autodidacte]

On pourrait envisager d'utiliser le registre Windows pour y parvenir à condition d'avoir les droits nécessaires pour le modifier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Dim WSHShell, fso, RegPath, FirstCall
RegPath = "HKCU\Volatile Environment\ProgPath"
FirstCall = "HKCU\Volatile Environment\TimeStamp"
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("Wscript.Shell")
On Error Resume Next ' Supprime l'erreur : Impossible d'ouvrir la clé.... pour la lecture.
With WSHShell
   If .RegRead(FirstCall) = "" Then ' si la date de 1ère exécution n'existe pas :
      .RegWrite RegPath, fso.GetParentFolderName(Wscript.ScriptFullName) ' On inscrit chemin de l'exe(ou du Script)
      .RegWrite FirstCall, Now ' On inscrit la date de 1ère exécution dans le registre.
    End If
  MsgBox .RegRead(RegPath) ' Retour du chemin de l'exe
End With

Une fois le script lancé à partir d'un emplacement donné(1ère exécution), c'est cet emplacement qui sera toujours évoqué tant que la valeur HKCU\Volatile Environment\TimeStamp reste une chaîne non vide et ce quel que soit le nouveau dossier de lancement du Script.

[ericlm128]

Qu’utilise tu pour passer de vbs à exe.
Si le compilateur est fait correctement, il devrait y avoir un moyen prévu de récupérer le chemin d'origine.

[b3401m]

Merci pour ces réponses.

1- la solution de modifier la clé de registre est intéressante, mais pas possible (les droits "administrateur" sont bridés)
2- compilateur = vbs_to_exe ; j'avais bien pensé à vérifier le paramétrage, mais le logiciel ne permet pas de gérer cette variable

[l_autodidacte]

1- la solution de modifier la clé de registre est intéressante, mais pas possible (les droits "administrateur" sont bridés)

On peut dans ce cas créer un fichier dans un dossier à choisir pour y écrire les infos au lieu de les mettre dans le registre :

Code :

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
Option Explicit
 
    Const ForReading = 1, ForWriting = 2, FileDest = "C:\Temp\Temoin.txt" ' exemple de chemin
    Dim fso, f
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(FileDest) Then 
       Set f = fso.OpenTextFile(FileDest, ForWriting, True)
       f.Write fso.GetParentFolderName(WScript.ScriptFullName)
       f.Close
       Set f = fso.OpenTextFile(FileDest, ForReading, False)
       MsgBox f.ReadAll
       f.Close
    Else
       Set f = fso.OpenTextFile(FileDest, ForReading, False)
       MsgBox f.ReadAll
       f.Close
    End If

[b3401m]

Après réflexion (et vérification), la solution proposée ne résout pas mon problème.
C'est la commande "objFSO.GetParentFolderName(WScript.ScriptFullName)" qui ne renvoie pas le résultat que j'attends. Si mon exe est stocké dans le répertoire "C:\Scripts", la commande ne renverra pas "C:\Scripts" mais le nom d'un répertoire temporaire d'exécution, du type "C:\User\Temp ..."