---

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

---

Posté : 12-02-2011 19:41

Mon fichier fais 2.5 Mo, WOUAh!!! pour une commande dir limité, sa fait un gros gros fichier.... T'inkiète pas, c'est normal, hollywood c'est un de ses défaut, il compile des bout de code en énorme fichiers

Voila le listing pour ceux que sa intéresse



@DISPLAY?{Sizeable?=?False,?Title?=?"MRODFR",?Height?=?800}

????Local?count=1
????OpenDirectory(1,?"")

????Local?e?=?NextDirectoryEntry(1)
????While?e?<>?Nil
????????NPrint(IIf(e.type?=?#DOSTYPE_FILE,?"Fichier:",?"Répertoire:"), ?e.name)
????????If?e.type=#DOSTYPE_DIRECTORY?
????????????f$=FilePart(e.name)
????????????count=count+1??
????????????OpenDirectory(count,?f$)?
????????????Local?F?=?NextDirectoryEntry(count)
????????????While?F?<>?Nil
????????????????NPrint(IIf(F.type?=?#DOSTYPE_FILE,?"Fichier:",?"Répert oire:"),?F.name)
????????????????F?=?NextDirectoryEntry(count)
????????????Wend
????????
????????????CloseDirectory(count)
????????EndIf
????????e?=?NextDirectoryEntry(1)
????Wend

????CloseDirectory(1)

Repeat
????WaitEvent
Forever



Oui oui... se petit bout de code une fois compilé fais 2.5Mo
Message édité par : artblink / 12-02-2011 19:46

---

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