Discussion :

[_xme_]

Bonsoir
Merci d'avance pour votre lecture
Je recherche une solution à un problème assez classique sur lequel google retourne pas mal de réponse seulement voilà aucune ne me convient .
Comme dit dans le titre, je cherche à obtenir le fichier courant d'ou a été lancé mon script.
Seulement mon script n'est pas un script .vbs, c'est un script inclus dans une page html ....
Du coup l'objet Wscript n'existe pas et du coup

Code :

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

wscript.ScriptFullName

ne marche pas
J'ai essayé de crée les objets par

Code :

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

CreateObject("Shell.Application")

ou

Code :

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

CreateObject("Wscript.Shell")

mais je n'ai jamais obtenu l'information recherché dans les propriétés
J'ai également essayé de passer par

Code :

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

1
2
3
Set fso = CreateObject("Scripting.FileSystemObject")
' Récupération du chemin absolu d'exécution du script
path = fso.GetAbsolutePathName(".")

Mais celui ci me renvoie le fichier courant par défaut c'est à dire "Mes documents", or je veux le chemin sur le réseau dans mon cas, à l'heure actuelle le chemin ressemble plus à : S:\80-19_PMO_TDB....
donc rien à voir
Donc si quelqu'un à une idée je suis preneur, ca fait déjà 2 heures que je cherche

Merci d'avance

[_xme_]

C'est forcément au moment ou je poste que j'ai une idée tout co*** "pourquoi m'acharner à le faire en vbs ?"
un peu de recherche et hop

Code :

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

document.location.pathname

qui marche en html ou hta
Bon je suis quand même intéressé par une solution plus vbs mais du coup c'est moins urgent, je vais pourvoir finir

Ma solution complète :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
		'Determintation du chemin absolu d'ou se situe le script
		racine=document.location.pathname
		ind=InStrRev(racine, "\")
		'On retire le nom du script
		racine=Left(racine,Len(racine)-(ind+1))
		'racine = "/" & chemin absolu que l'on souhaite
		racine=Right(racine,Len(racine)-1)
		'On convertit la chaine en chemin standard
		racine=Replace(racine, "\", "/")