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
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
Article(s) suivant(s)
Article(s) précédent(s)