Nom du répertoire de stockage du script

Version imprimable

26/10/2017, 14h18
b3401m

Nom du répertoire de stockage du script
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:

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

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

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.

31/10/2017, 23h48
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.
02/11/2017, 07h46
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

Citation:

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:

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

06/11/2017, 08h53
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 ..."

Salut

Code:

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?

07/11/2017, 16h03
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". :(
07/11/2017, 17h18
omen999

bonjour,

ton convertisseur c'est celui-ci ?
et sinon, ton .exe accepte-t-il des paramètres en ligne de commande ?
08/11/2017, 10h42
omen999
s'il s'agit bien du convertisseur visé par mon message précédent
la réponse est dans la doc....... RTFM :roll:

extrait :

Citation:

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:

1 2 Set WshShell = WScript.CreateObject("WScript.Shell") wscript.Echo WshShell.ExpandEnvironmentStrings("%v2eprogrampathname%")
08/11/2017, 11h42
ericlm128

Citation:

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 ;)
08/11/2017, 15h45
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.
08/11/2017, 18h01
omen999

Citation:

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

Citation:

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 :mouarf:
10/11/2017, 11h36
b3401m

Oups ... :oops:

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