allí aparece una funcion llamada:
Código: Seleccionar todo
Function ReadDirectories(ByVal AnchorDir As String, bRecursive as Boolean, bcheckFileType as Boolean, bGetByTitle as Boolean, Optional sFileContent(), Optional sExtension as String)
Código: Seleccionar todo
Function ReadDirectories(ByVal AnchorDir As String, bRecursive as Boolean, bcheckFileType as Boolean, bGetByTitle as Boolean, Optional sFileContent(), Optional sExtension as String)
Código: Seleccionar todo
GlobalScope.BasicLibraries.LoadLibrary("Standard")
Código: Seleccionar todo
Sub Main()
GlobalScope.BasicLibraries.LoadLibrary("Standard")
Dim oArray
oArray = ReadDirectories("C:\Federico\", False, False, False)
largo = Ubound(oArray)
For a = 0 To largo
msgbox oArray(a)
next
End Sub