REM ===================================
REM Fichier : ezpath.vbs
REM Desc : Affiche le path ligne par ligne, plus lisible que la ligne et ses points-virgules.
REM Année : 2009
REM Auteur : X. Gangand
REM ===================================
REM Historique :
REM 08:45 samedi 6 juin 2009 Ajout d'une vérification de l'existence de chaque dossier du path
EZPath
Sub EZPath
REM =================
REM = Affiche le path
REM =================
u = Split(Environ("path"),";")
QSort_Simple u, 0, UBound(u), 1, 1
For Each a in u
n = n + 1
x = x & vbcrlf & n & " - " & LCase(a) & FolderOK(LCase(a))
Next
Wscript.Echo "Contenu du path actuel :" & x & _
vbcrlf & _
vbcrlf & _
"Vous pouvez modifier votre path de deux façons (sous Windows XP) :" & vbcrlf & _
" - Panneau de config - Système - Avancé - Variables d'environnement" & vbcrlf & _
" - registre : HCU\Environment" & vbcrlf & _
" HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
End Sub
Function Environ(VarName)
REM ===================================
REM = Lire une variable d'environnement
REM ===================================
Dim wss, env
Set wss = CreateObject("WScript.Shell")
Set env = wss.environment("process")
Environ = env(VarName)
If Environ = "" Then
Set env = wss.environment("system")
Environ = env(VarName)
End If
End Function
Sub QSort_Simple(t,deb,fin,numCol,nbCol)
REM =============
REM = Tri tableau
REM =============
Dim i, j, c, p, z
c = (deb + fin) \ 2 'divison entière
Do
i = deb: j = fin
While LCase(t((i-1)*nbCol+numCol)) <= LCase(t((c-1)*nbCol+numCol)) and i < c:i = i + 1:Wend
While LCase(t((j-1)*nbCol+numCol)) >= LCase(t((c-1)*nbCol+numCol)) and j > c:j = j - 1:Wend
'échanger les valeurs
If i < j Then
For z=1 To nbCol 'à verifier !!! z=1
p = t( (j-1)*nbCol+z )
t( (j-1)*nbCol+z ) = t( (i-1)*nbCol+z )
t( (i-1)*nbCol+z ) = p
Next
End If
i = i + 1: j = j - 1
Loop While i < j
'2. appels récursifs
If j > deb Then QSort_Simple t,deb,j,numCol,nbCol
If i < fin Then QSort_Simple t,i,fin,numCol,nbCol
End Sub
Function FolderOK(d)
REM ==============================
REM = Vérif existence d'un dossier
REM ==============================
On Error Resume Next
Dim oFSOdf
Set oFSOdf = CreateObject("Scripting.FileSystemObject")
If oFSOdf.FolderExists(d) Then
FolderOK = ""
Else
FolderOK = " (dossier non trouvé)"
End If
Set oFSOdf = Nothing
End Function