Task

Write a program that will list everything in the current folder,   similar to:

   the Unix utility   “ls”   [1]       or 
   the Windows terminal command   “DIR” 


The output must be sorted, but printing extended details and producing multi-column output is not required.



Example output
For the list of paths:

/foo/bar
/foo/bar/1
/foo/bar/2
/foo/bar/a
/foo/bar/b



When the program is executed in   `/foo`,   it should print:

bar

and when the program is executed in   `/foo/bar`,   it should print:

1
2
a
b



#include "dir.bi"
 
Sub ls(Byref filespec As String, Byval attrib As Integer)   
    Dim As String filename = Dir(filespec, attrib)
    Do While Len(filename) > 0
        Print filename
        filename = Dir()
    Loop
End Sub
 
Dim As String directory = ""     ' Current directory
ls(directory & "*", fbDirectory)
Sleep