donne le chemin auquel se trouve le script

Version imprimable

17/11/2008, 13h39
arnaudperfect

donne le chemin auquel se trouve le script

bonjour,

Je voudrais réalisé un script qui me donne le chemin auquel se trouve le script lui même (exemple : c:\répertoire)

Merci d'avance,

Arnaud
17/11/2008, 14h49
omen999

bonjour,

cherche dans la doc wsh la propriété ScriptFullName de l'objet WScript

j'ai eu besoin d'un truc comme ca, voilà ce que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
'La commande importante :
ScriptPath = Left(WScript.ScriptFullName,(Len(WScript.ScriptFullName) - (Len(WScript.ScriptName) + 1)))
 
 
'l utilisation par exemple pour ouvrir un fichier :
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
fichierLog = "Parser.log"
 
ScriptPath = Left(WScript.ScriptFullName,(Len(WScript.ScriptFullName) - (Len(WScript.ScriptName) + 1)))
Set objLogFile = objFSO.OpenTextFile (ScriptPath & "\" & fichierLog, ForAppending, True)

17/11/2008, 18h40
ced600

La FAQ VBScript contient pas mal de chose, et notemment une réponse à ton problème, cela vaut le coup d'y jeter un coup d'oeil avant chaque demande ;)
http://vb.developpez.com/faqvbs/?page=II.1#vbsPath
19/11/2008, 15h37
arnaudperfect

Code:

ScriptPath = Left(WScript.ScriptFullName,(Len(WScript.ScriptFullName) - (Len(WScript.ScriptName) + 1)))

Citation:

Envoyé par spantemonium

j'ai eu besoin d'un truc comme ca, voilà ce que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
'La commande importante :
ScriptPath = Left(WScript.ScriptFullName,(Len(WScript.ScriptFullName) - (Len(WScript.ScriptName) + 1)))
 
 
'l utilisation par exemple pour ouvrir un fichier :
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
fichierLog = "Parser.log"
 
ScriptPath = Left(WScript.ScriptFullName,(Len(WScript.ScriptFullName) - (Len(WScript.ScriptName) + 1)))
Set objLogFile = objFSO.OpenTextFile (ScriptPath & "\" & fichierLog, ForAppending, True)

c'est ca... :roll: