Jabaco Source

Public Sub main(ByJava args() As String)
   Dim myArgs() As String
   myArgs = args
   ' [Your Source]
   Dim x() As String
   x = ListFiles("c:",True)
End Sub

' list all the files in a directory
' if NESTEDDIRS = True it lists a whole directory tree
'
' returns a 1-based array containing all the listed files

Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) _
	As String()
	Dim fso As New Scripting.FileSystemObject
	Dim fld As Scripting.Folder
	Dim fileList As String
	
	' get the starting folder
	Set fld = fso.GetFolder(Path)
	' let the private subroutine do all the work
	fileList = ListFilesPriv(fld, NestedDirs)
	' convert to a string array
	' (the first element will be a null string)
	ListFiles = Split(fileList, ";")
	
End Function

' private procedure that returns a file list
' as a comma-delimited list of files

Function ListFilesPriv(ByVal fld As Scripting.Folder, _
	ByVal NestedDirs As Boolean) As String
	Dim fil As Scripting.File
	Dim subfld As Scripting.Folder
	
	' list all the files in this directory
	For Each fil In fld.Files
    	ListFilesPriv = ListFilesPriv & ";" & fil.Path
	Next
    	
	' if requested, search also subdirectories
	If NestedDirs Then
    	For Each subfld In fld.SubFolders
        	ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
    	Next
	End If
	
End Function