Nom du dossier parent seul dans une variable

Bonjour,

Je souhaiterais récupérer le nom du dossier dans lequel se trouve le fichier vbs que j'exécute.

Par exemple, en exécutant c:\machin\chose\truc\toto.vbs, je souhaiterais pouvoir récupérer 'truc' dans une variable.

En cherchant dans la FAQ, j'ai trouvé une piste :

Code:

---

MsgBox WScript.ScriptFullName

---

Ceci m'affiche le chemin en entier. J'ai bien essayé :

Code:

---

MsgBox WScript.Path

---

Mais le dossier remonté n'est pas celui dans lequel se trouve mon fichier vbs.

Suis-je obligé d'utiliser des fonctions du genre LTRIM pour virer tout le début du chemin complet du répertoire ?

Merci de votre aide. ;)

pour récupérer une partie du répertoire tu peu utiliser split :

Code:

---

1 2 3 4 5

tb = split(WScript.ScriptFullName,"\") i = ubound(tb) if i > 0 then msgbox tb(i-1) end if

---

Génial, c'est exactement le résultat que je souhaite !
Merci à toi bbil ! :ccool:

Petit message d'erreur lorsque j'intègre le code à un cript d'une page html :

Citation:

---

Message : Indice en dehors de la plage: '[number: -2]'

---

J'ai créé un formulaire qui mémorise des informations dans un fichier TXT et CSV. Voici le code (en gras, ce que j'ai rajouté et adapté) :

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 30

<SCRIPT LANGUAGE="VBScript"> <!-- Sub Submit_OnClick Const ForAppending = 8 Dim TheForm Dim Fso, f Set wsnetwork = CreateObject("WScript.Network" ) user = wsnetwork.username Set Fso = CreateObject("Scripting.FileSystemObject") Set f = Fso.OpenTextFile("cli.txt", ForAppending,true) Set g = Fso.OpenTextFile("cli.csv", ForAppending,true) Set TheForm = Document.ValidForm tb = split(ScriptFullName,"\") i = ubound(tb) if TheForm.Text1.value <> "" then f.write(tb(i-1) & "/" & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & "; "& user & "; "& TheForm.action.value & "; "& TheForm.Text1.value & chr(13)) g.write(tb(i-1) & "/" & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & "; " & user & "; " & TheForm.action.value & "; " & TheForm.Text1.value & chr(13)) window.location.reload() else Msgbox "Attention ! Aucune action à enregistrer" end if End Sub --> </SCRIPT>

---

Je crois comprendre qu'il y a un truc avec WSCRIPT mais mes tentatives de résolution et mes recherches (tentatives de déclation de WSCRIPT) restent vaines.

Si vous avez une idée, je suis preneur !

Dans un Html :

Code:

---

tb = split(window.document.url,"\")

---

ok, ok.
Bon j'ai du mal à saisir les raisons pour lesquelles il y a une nuance de syntaxe entre le vbs et le html. Je vais essayer de trouver une doc.

En tout cas merci de ton aide. Ca marche très bien avec cette syntaxe ! :ccool:

Crois-tu qu'il serait plus sage d'appeler un fichier VBS (contenant ce script) depuis la page HTML, plutôt que de mettre le script au sein de la page HTML ?

tiens une bonne lecture :

http://tahe.developpez.com/web/vbscr...ge=page_2#LI-D

salut,

ou bien:

Code:

---

1 2 3

set fs = createobject("scripting.filesystemobject") msgbox fs.getbasename(fs.getparentfoldername(wsh.scriptfullname))

---

Voila une autre façon avec le nom complet :

Code:

---

1 2 3 4

i = InStrRev(Wscript.ScriptFullName,"\") rep = Left(Wscript.ScriptFullName,i) ' & "\" Set oFso = CreateObject("Scripting.FileSystemObject") precedent = ofso.GetFolder(Rep).ParentFolder

---