13 lines
317 B
Text
13 lines
317 B
Text
#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
|