TUTOS.EU

Afficher l'emplacement du script

Retourner le répertoire dans lequel le VbScript fonctionne

Affichage du chemin du répertoire contenant le script

Option Explicit
Dim CheminScriptActuel

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
Wscript.Echo "Votre script '" & wscript.scriptname & "' est dans le répertoire '" & CheminScriptActuel & "'."
Lien vers le fichier : cliquez ici Copier le code

Variante ajoutant en plus le nom du script sans son extension

Option Explicit

Dim CheminScriptActuel, ScriptFileName, Position
CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
Wscript.Echo "Votre script '" & wscript.scriptname & "' est dans le répertoire '" & CheminScriptActuel & "'."

ScriptFileName = wscript.scriptname
Position = InstrRev(ScriptFileName,".")
if (Position > 0) Then ScriptFileName = Left(ScriptFileName, Position - 1)
Wscript.Echo "Le script se nomme """ & ScriptFileName & """."
Lien vers le fichier : cliquez ici Copier le code

Article(s) suivant(s)

Article(s) précédent(s)

2