[visual basic VS vbs] Répertoire courant

Version imprimable

02/04/2007, 16h51
abertaud

[visual basic VS vbs] Répertoire courant

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...
02/04/2007, 16h56
SfJ5Rpw8

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

où

Code:

Msgbox Wscript.path
02/04/2007, 17h03
abertaud

J'ai bien essayé cette ligne de code.

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

Citation:

Erreur d'exécution '424'

"Objet requis"

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

Code:

C:Windows/system32

ce qui n'est malheureusement pas le répertoire dans lequel est placé mon fichier lambda.vbs
02/04/2007, 17h08
abertaud
Ou la, je commence à être fatigué. Effectivement la réponse est dans le lien que tu lme proposes :
Code:

1 2 MsgBox Wscript.ScriptFullName
permet l'affichage de :
Code:

1 2 C:/Temp/prod/ProjetZZZZ/1.1/lambda.vbs
Merci pour l'info, je devrais pouvoir poursuivre avec ca
02/04/2007, 17h09
SfJ5Rpw8
Citation:
Envoyé par abertaud

J'ai bien essayé cette ligne de code.

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

Code:

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
Citation:
Envoyé par abertaud

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

Code:

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 :

Citation:

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

...

Code:

wscript.path

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

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

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:

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:

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