CAD里面用VBA编写一个提取文件夹下所有文件名到数组的代码

以下是一个示例代码，可以提取指定文件夹下（示例中为"C:\Temp\"）所有文件名到一个数组中：

Sub GetFileNames()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim filePaths() As String
    Dim i As Integer
    
    '创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '获取指定文件夹
    Set folder = fso.GetFolder("C:\Temp\")
    
    '遍历文件夹下的所有文件
    For Each file In folder.Files
        '将文件路径添加到数组中
        ReDim Preserve filePaths(i)
        filePaths(i) = file.Path
        i = i + 1
    Next
    
    '输出数组中的文件路径
    For i = 0 To UBound(filePaths)
        Debug.Print filePaths(i)
    Next
    
    '释放对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

该代码会将指定文件夹下所有文件的路径添加到一个字符串数组中，并打印到VBA的“立即窗口”中。你可以将其改为将数组作为函数返回值，以便在代码的其他部分中使用。