VB6.0函数返回数组示例

'函数返回数组示例
Function GetFiles(path As String) As String()
    Dim oFso As Scripting.FileSystemObject
    Dim oFolder As Scripting.Folder
    Dim oFile As Scripting.File
    Dim i As Integer
    Dim list() As String '1.声明一个临时数组
    
    Set oFso = New Scripting.FileSystemObject
    Set oFolder = oFso.GetFolder(path)
    ReDim Preserve list(oFolder.Files.Count - 1)
    For Each oFile In oFolder.Files
        list(i) = oFile.path
        i = i + 1
    Next
    GetFiles = list '2.临时数组赋值给函数名
    
    Set oFile = Nothing
    Set oFolder = Nothing
    Set oFso = Nothing
End Function

Dim a() As String
a = GetFiles("F:\0598")
For i = 0 To UBound(a)
	Text1.Text = Text1.Text & a(i) & vbCrLf
Next