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