Discussion :

[ValPhi]

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 :

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

MsgBox WScript.ScriptFullName

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

Code :

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

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.

[SfJ5Rpw8]

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

Code :

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

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

[ValPhi]

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

[ValPhi]

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

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 :

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

[SfJ5Rpw8]

Dans un Html :

Code :

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

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

[ValPhi]

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 !

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 ?

[SfJ5Rpw8]

tiens une bonne lecture :

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

[I'm_HERE]

salut,

ou bien:

Code :

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

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

[papyxy]

Voila une autre façon avec le nom complet :

Code :

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

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