Script qui affiche l'Adresse du fichier en cours et ouvre son emplacement

CODE SCRIPT

' Trouver l'adresse du script exécuté
fullname = WScript.ScriptFullName
' get the path
 ' au depart, on doit trouver la dernière "\"
pos = InstrRev(fullname, "\")
' extraire la partie de l'adresse:
path = left(fullname, pos-1)
MsgBox "Ce script est stocké dans : " & path
' actuellement on a eu l'adresse ! on passe au non du fichier:
filename = mid(fullname, pos+1)
MsgBox "Ce cript: " & filename
' Ouvrir explorateur windows
set wshshell = CreateObject("WScript.Shell")
command = "EXPLORER.EXE " & path
wshshell.run command

EXEMPLE D'ILLUSTRATION

Ce script permet d’afficher l’adresse du script exécuté, son nom et ouvre son emplacement :

Fonctions Utilisées:

ScriptFullName: Retourne l'adresse complète du script en cours d'exécution.

InstrRev: Trouve la position de la dernière "\" qui compose l'adresse.

left: Permet d'extraire une chaîne de caractère dés le début jusqu'à la position indiqué

mid: Permet d'extraire le texte de la position indiquée jusqu'à la fin du texte