Pour construire une arborescence exactement comme le fait l'explorateur Windows, il faudrait un objet système qui n'existe pas (encore) sous
PANORAMIC. Je pense à un objet
TREE qui pourrait très bien faire ce genre de chose...
Par contre, il est possible actuellement de lister le contenu de C:/ dans un objet
LIST comme le montre cet exemple:
- Code:
-
rem arborescence de c
dim a$
dir_change "c:":rem on se place sous la racine
rem création d'une liste
list 1:width 1,200:height 1,300
rem premier fichier mis dans la liste
item_add 1,file_find_first$
rem ajoute les fichiers suivants
a$=file_find_next$
while a$<>"_"
item_add 1,a$
a$=file_find_next$
end_while
file_find_close:rem pour libérer la ressource de recherche
Cet exemple est une adaptation de l'exemple proposé dans le manuel de référence pour les commandes
FILE_FIND_FIRST$ et
FILE_FIND_NEXT$.
Le principe est le suivant:
on ajoute dans la liste le premier fichier trouvé
on ajoute dans la liste tous les suivants jusqu'à ce qu'il n'y en ait plus (la commande
FILE_FIND_NEXT$ retourne le caractère souligné lorsqu'il n'y a plus de suivant, d'où la fin de la boucle
WHILE quand la commande a retourné la valeur "_"