---

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

---

Posté : 13-02-2011 11:31

Car il veut un listing seulement des répertoires et des sous répertoire sur 1 niveau

Mais j'y arrive

Edit: Nouvelle version:

Sa enregistre dans un fichier txt. le nom du fichier c'est liste.txt sauvegarder sur le même emplacement que ton prg MRODFR.Exe

Amuse toi bien

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



Message édité par : artblink / 13-02-2011 12:01

---

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