---

Forum » » Logiciels » » Liste de tiroirs dans le fichier texte. Possible ??

---

Posté : 14-02-2011 08:46

Citation : artblink?
voici le code pour les hollywoodien:


@DISPLAY?{Sizeable?=?False,?Title?=?"MRODFR",?Height?=?200,?Width?=?320}
????TextOut(#CENTER,95,"Coucou...")

????OpenFile(1,"Liste.txt",#MODE_READWRITE?)
????OpenDirectory(1,?"")

????Local?e?=?NextDirectoryEntry(1)
??????
????While?e?<>?Nil
????????If?e.type=#DOSTYPE_DIRECTORY?Then?WriteLine(1,e.name)
????????
????????If?e.type=#DOSTYPE_DIRECTORY?
????????????f$=FilePart(e.name)
????????????
????????????OpenDirectory(2,?f$)?
????????????Local?F?=?NextDirectoryEntry(2)
????????????While?F?<>?Nil
????????????????If?F.type=#DOSTYPE_DIRECTORY?Then?WriteLine(1,F.name)
????????????????F?=?NextDirectoryEntry(2)
????????????Wend
??????????
????????????CloseDirectory(2)
????????????
????????????EndIf
????
????????e?=?NextDirectoryEntry(1)
????Wend

????CloseDirectory(1)
CloseFile(1)
TextOut(#CENTER,105,"Fichier créer mon petit MRODFR")

Repeat
????WaitEvent
Forever



Il est bon, le Artblink mais tu aurais pu lui ajouter un PathRequest, histoire de finaliser le tout
C'est bon hollywood, pour se créer ses petits outils, mangez-en!

---

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=993&forum=4