1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
PROCÉDURE AfficherArbo(saCheminArchive est chaîne)
saListeFichier est une chaîne //Liste des fichiers de l'archive
saCheminFichier est une chaîne //Chemin d'un ficher de l'archive
saBranche est chaîne //Nom de la branche en cours
saNoeud est une chaîne //Nom du nud de la branche en cours
nNoNoeud est entier //Ligne du nud saNoeud
saFeuille est une chaîne //Nom de la feuille
nLigneFeuille est entier //Ligne de la feuille
saInfo est chaîne //Info sur le fichier
SI zipOuvre(zipMonArchive,saCheminArchive)=0 ALORS
saListeFichier=zipListeFichier(zipMonArchive)
POUR TOUTE CHAÎNE saCheminFichier DE saListeFichier SÉPARÉE PAR RC
saNoeud=""
saFeuille=ExtraitChaîne(saCheminFichier,1,"\",DepuisFin)
saInfo=zipInfoFichier(zipMonArchive,saCheminFichier)
POUR TOUTE CHAÎNE saBranche DE saCheminFichier SÉPARÉE PAR "\"
nNoNoeud=TableCherche(COL_Nom,saNoeud,rechercheDéfaut) //On cherche le nud et on récupère son no de ligne
SI TableCherche(COL_Nom,saBranche,rechercheDéfaut)=-1 ALORS //La branche n'existe pas encore, on peut l'ajouter
SI saBranche<>saFeuille ALORS
TableAjouteFils(TABLEH_Zip,nNoNoeud,saBranche,"","","Répertoire")
SINON
//On ajoute les infos du fichier
nLigneFeuille=TableAjouteFils(TABLEH_Zip,nNoNoeud,saBranche,ExtraitChaîne(saInfo,2,TAB),ExtraitChaîne(saInfo,3,TAB),"fichier")
//On cache l'image de répertoire pour la feuille
TABLEH_Zip[nLigneFeuille]..ImageDéroulée=Null
TABLEH_Zip[nLigneFeuille]..ImageEnroulée=Null
FIN
FIN
saNoeud=saBranche //La branche devient nud
FIN
FIN
FIN |
Partager