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 ..."

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
MsgBox ChemSource(replace(WScript.ScriptFullName,WScript.ScriptName,""), WScript.ScriptName)
 
Function ChemSource(Chem, Fich)
Dim objShell, objFolder, strFileName
Dim Msg
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Chem) 'branchement sur le dossier
Set strFileName = objFolder.Items.Item(Fich) 'branchement sur le fichier
 
ChemSource = Trim(objFolder.GetDetailsOf(strFileName, 177))
 
Set strFileName = Nothing: Set objFolder = Nothing: Set objShell = Nothing
End Function

Si le script n'est pas dans le dossier temporaire mais dans le dossier de travail, que donne ce script une fois compilé avec vbs_to_exe?

[b3401m]

Bonjour,

Le comportement est le même.
Apparemment, le script se décompile dans le répertoire temporaire qui devient donc son répertoire "source".

[omen999]

bonjour,

ton convertisseur c'est celui-ci ?
et sinon, ton .exe accepte-t-il des paramètres en ligne de commande ?

[omen999]

s'il s'agit bien du convertisseur visé par mon message précédent
la réponse est dans la doc....... RTFM

extrait :

Environment variables


These environment variables are automatically set at the start of your converted program

v2eincfile(number) Returns, if available, the include filename
v2eincfilecount Returns the number of files included
v2eincfilepath Returns the include file path
v2eprogramname Returns the full path name of your executable
v2eprogramfilename Returns the file name of your executable
v2eprogrampathname Returns the directory name of your executable
v2eprogramshortname Returns the short DOS (8.3) path name of your executable

Code :

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

1
2
Set WshShell = WScript.CreateObject("WScript.Shell")
wscript.Echo WshShell.ExpandEnvironmentStrings("%v2eprogrampathname%")

[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.

J'attends toujours la réponse à ma question du 31/10/2017.

Chercher sans savoir est une perte de temps, mais tu apporte déjà des réponses omen999

[b3401m]

Désolé, j'avais zappé le message du 31/10.

Ta solution est la bonne en effet ; avec la doc, ça facilite les choses, mais je n'avais pas trouvé la doc dont tu parles (et ne l'ai toujours pas trouvée).
Merci beaucoup.

[omen999]

mais je n'avais pas trouvé la doc dont tu parles (et ne l'ai toujours pas trouvée).

dans le pack Vbs_To_Exe.zip téléchargé hier sur le site, je trouve pourtant bien un fichier help.chm...

Chercher sans savoir est une perte de temps

11 ans de forum m'ont appris que même fournir une bonne réponse n'assure pas la résolution du problème

[b3401m]

Oups ...

Merci pour le temps que tu y as consacré (et que je t'ai fait perdre)