16 lines
341 B
Plaintext
16 lines
341 B
Plaintext
NewList lslist.s()
|
|
|
|
If OpenConsole("ls-sim")
|
|
If ExamineDirectory(0,GetCurrentDirectory(),"*.*")
|
|
While NextDirectoryEntry(0)
|
|
AddElement(lslist()) : lslist()=DirectoryEntryName(0)
|
|
Wend
|
|
FinishDirectory(0)
|
|
SortList(lslist(),#PB_Sort_Ascending)
|
|
ForEach lslist()
|
|
PrintN(lslist())
|
|
Next
|
|
EndIf
|
|
Input()
|
|
EndIf
|