20 lines
486 B
Text
20 lines
486 B
Text
#include "dir.bi"
|
|
|
|
Sub listFiles(Byref filespec As String, Byval attrib As Integer)
|
|
Dim As Integer count = 0
|
|
Dim As String filename = Dir(filespec, attrib)
|
|
Do While Len(filename) > 0
|
|
count += 1
|
|
Print filename
|
|
filename = Dir()
|
|
Loop
|
|
Print !"\nArchives count:"; count
|
|
End Sub
|
|
|
|
Dim As String mylist = "C:\FreeBASIC\""
|
|
Print "Directories:"
|
|
listFiles(mylist & "*", fbDirectory)
|
|
Print
|
|
Print "Archive files:"
|
|
listFiles(mylist & "*", fbArchive)
|
|
Sleep
|