#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