Trier des données dans un tableau en VBS - Page 2/2
lundi 1er juin 2009
Voilà, j'ai finalisé mon petit projet ce matin. Le script permet d'afficher par ordre décroissant de taille les sous-dossiers d'un dossier parent dont le path est saisi dans un InputBox en début de programme. Un seuil de taille minimum (sChoi), saisi de la même façon par l'utilisateur est inclu dans le filtre (dans mon cas il s'agit de nettoyer d'abord les plus gros sous-dossiers). Dans mon empressement ce script n'est pas propre hein, je n'ai pas pris le temps de voir comment utiliser un double tableau ou une structure. Je fais une boucle à vide au début pour déterminer la tailles des deux tableaux. Quand je suis pressé je fais du pragmatique (avec ce que je sais faire), pardon si je choque les vrai programmeurs: je me rapproche du système en faisant mon initiation en C en ce moment, alors quand je fais du vbs c'est pour avoir rapidement un outil exploitable. J'avais trois jours, il m'en reste un pour faire la vaisselle , le ménage, aller prendre l'air, corriger les cahiers de mes élèves, etc. ;)
Il y a deux tableaux séparés: un pour les noms des dossiers (tableauA) et un autre pour les tailles de ces derniers (tableauB).
Voici l'output d'une session d'exemple sur C:\Program Files avec un seuil de taille mini de 5 Mo
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
nChoi
----------------------------------
TEST pour taille tableau
C:\Program Files
0Mo
0Mo
0Mo
3Mo
1Mo
35Mo
C:\Program Files\Fichiers communs
TAILLE: 35 Mo
indice tableau = 1
1Mo
3Mo
0Mo
0Mo
0Mo
0Mo
7Mo
C:\Program Files\InstallShield Installation Information
TAILLE: 7 Mo
indice tableau = 2
0Mo
0Mo
0Mo
0Mo
2Mo
3Mo
13Mo
C:\Program Files\Zone Labs
TAILLE: 13 Mo
indice tableau = 3
1Mo
10Mo
C:\Program Files\eMule
TAILLE: 10 Mo
indice tableau = 4
13Mo
C:\Program Files\ATI Technologies
TAILLE: 13 Mo
indice tableau = 5
0Mo
0Mo
0Mo
C:\Program Files
UBound du tableauA : 4
tableauA(0) Fichiers communs
tableauA(1) InstallShield Installation Information
tableauA(2) Zone Labs
tableauA(3) eMule
tableauA(4) ATI Technologies
UBound du tableauB : 4
tableauB(0) 35
tableauB(1) 7
tableauB(2) 13
tableauB(3) 10
tableauB(4) 13
Affichage avant rangement
UBound du tableauA : 4
tableauA(0) Fichiers communs
tableauA(1) InstallShield Installation Information
tableauA(2) Zone Labs
tableauA(3) eMule
tableauA(4) ATI Technologies
UBound du tableauB : 4
tableauB(0) 35
tableauB(1) 7
tableauB(2) 13
tableauB(3) 10
tableauB(4) 13
Affichage final
------------------------
tableauA(0) Fichiers communs
tableauB(0) 35
tableauA(1) Zone Labs
tableauB(1) 13
tableauA(2) ATI Technologies
tableauB(2) 13
tableauA(3) eMule
tableauB(3) 10
tableauA(4) InstallShield Installation Information
tableauB(4) 7
Exit code: 0 , 0000h
---------------------------------------------------------------------------------- << Page précédente ----------------------------------------------------------