Discussion :

[abertaud]

Bonjour,

j'ai un fichier .vbs dans lequel j'ai besoin de connaître le nom complet du répertoire courant (par exemple : "C:/Temp/prod/ProjetZZZZ/1.1").
Ca me paraissait devoir être enfantin à mettre en place, mais je n'ai toujours pas trouvé mon bonheur...

[SfJ5Rpw8]

Comment obtenir le nom et chemin complet d'un script en cours d'exécution ?


où

Code :

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

Msgbox Wscript.path

[abertaud]

J'ai bien essayé cette ligne de code.

Lorsque je suis dans un éditeur Microsoft Visual Basic, j'obtiens :

Erreur d'exécution '424'

"Objet requis"

Lorsque je suis dans un fichier lambda.vbs, j'obtiens :

Code :

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

C:Windows/system32

ce qui n'est malheureusement pas le répertoire dans lequel est placé mon fichier lambda.vbs

[abertaud]

Ou la, je commence à être fatigué. Effectivement la réponse est dans le lien que tu lme proposes :

Code :

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

1
2
 
MsgBox Wscript.ScriptFullName

permet l'affichage de :

Code :

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

1
2
 
C:/Temp/prod/ProjetZZZZ/1.1/lambda.vbs

Merci pour l'info, je devrais pouvoir poursuivre avec ca

[SfJ5Rpw8]

J'ai bien essayé cette ligne de code.

Lorsque je suis dans un éditeur Microsoft Visual Basic, j'obtiens :

Code :

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

1
2
3
4
 
Erreur d'exécution '424'
 
"Objet requis"

....

ben dans visual basic ( 6..?) c'est pas du vbs..! il te faut créer un objet Wscript

Lorsque je suis dans un fichier lambda.vbs, j'obtiens :

Code :

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

1
2
 
C:Windows/system32

ce qui n'est malheureusement pas le répertoire dans lequel est placé mon fichier lambda.vbs

non c'est pas la question :

j'ai besoin de connaître le nom complet du répertoire courant

...

Code :

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

wscript.path

renvoi le répertoire courant...(pas forcément celui contenant le .vbs...)


tu as regardé mon lien .. ....?

[abertaud]

Etant donné que j'utilise VBA pour de dev (grâce entre autres à l'exécution pas à pas), et VBS pour l'exploitation, je propose cette fonction qui me permet de faire un code qui résoud les problèmes d'exécution que j'avais :

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
19
20
21
22
23
24
25
26
27
28
29
 
Dim VBSmode 'type d'execution (true si VBS, false si VBA)
 
Sub DetermineTypeExe()
    Dim declenchement
    'on evite le plantage de l'appli
    On Error Resume Next
    'appel d'une instruction qui crée une erreur si on n'est pas en VBS
    declenchement = WScript.FullName
    'Affectation de la variable VBSmode en conséquence
    If Err.Number = 0 Then
        'pas d'erreur => exécution VBS
        VBSmode = True
    Else
        VBSmode = False
        Err.Clear
    End If
End Sub
 
Sub InstancierVariables()
    'Déterminaison du type d'exécution
    DetermineTypeExe
    'récupération du répertoire courant
    If (VBSmode = True) Then
        repFic = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
    Else
        repFic = ActiveWorkbook.Path & "\"
    End If
End Sub

Du coup, quelque soit le contexte d'exécution, à la suite de l'appel de la fonction InstancierVariables, j'ai toujours :

Code :

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

1
2
 
repFic = C:/Temp/prod/ProjetZZZZ/1.1/