一点新手的帮助

Public Sub GetFolderList(BlockLibrary As String)
Dim FileName As String
Dim FileList() As Variant
Dim Counter As Single
' Display the names of the files that represent directories.
FileName = Dir(BlockLibrary, vbDirectory)    ' Retrieve the first entry.
Counter = 0
ReDim FileList(Counter)
Do While FileName  ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If FileName  "." And FileName  ".." Then
        ' Use bitwise comparison to make sure FileName is a directory.
        If (GetAttr(BlockLibrary & FileName) And vbDirectory) = vbDirectory Then
            Debug.Print FileName    ' Display entry only if it
            FileList(Counter) = FileName
            ReDim Preserve FileList(Counter + 1)
            Counter = (1 + Counter)
        End If    ' it represents a directory.
    End If
    FileName = Dir    ' Get next entry.
Loop
End Sub

Option Explicit
Public DirectoryListArray() As String
Public Sub Main()
    Dim MyFile As String
    Dim Counter As Long
    
    ReDim DirectoryListArray(1000)
    
    MyFile = Dir$("c:\temp\*.dwg")
    Do While MyFile  ""
        DirectoryListArray(Counter) = MyFile
        MyFile = Dir$
        Counter = Counter + 1
    Loop
    
    ReDim Preserve DirectoryListArray(Counter - 1)
End Sub

ListBox1.List = DirectoryListArray