解决VBA字符串变量限制导致大量文件列表输出不全问题

你的问题核心是一次性读取CMD输出到String变量时，因数据量过大（30万文件）超出VBA实际处理的内存承载限制，以下是两种高效解决方案：

方案1：直接用CMD重定向输出（最推荐，无需VBA处理大文本） #

让CMD命令直接把结果写入文件，完全跳过VBA的字符串中转，速度最快且无内存压力：

Sub ExportFileList_DirectCMD()
    Const parentFolder As String = "\\eugbp-anas0001\hr_xythos_prd\SharedFolder\UK\" ' 保留末尾斜杠
    Const outputPath As String = "C:\Users\rkchal\Desktop\Export\OUTPUT.txt"
    
    ' 利用CMD重定向符>直接将结果写入目标文件
    CreateObject("WScript.Shell").Exec("CMD /C DIR """ & parentFolder & "*.*"" /S /B /A:-D > """ & outputPath & """")
End Sub

原理：>是CMD的标准输出重定向命令，把DIR的结果直接写入指定文件，VBA仅负责触发命令，不处理任何中间文本，彻底避开String变量的限制。

方案2：逐行读取输出并写入文件（适合需中间处理的场景） #

如果需要在写入前对每个文件路径做额外处理（比如筛选、提取属性），可以逐行读取CMD输出，避免积累大字符串：

Sub ExportFileList_LineByLine()
    Const parentFolder As String = "\\eugbp-anas0001\hr_xythos_prd\SharedFolder\UK\" ' 保留末尾斜杠
    Const outputPath As String = "C:\Users\rkchal\Desktop\Export\OUTPUT.txt"
    
    Dim shellObj As Object
    Dim stdOut As Object
    Dim lineText As String
    
    Set shellObj = CreateObject("WScript.Shell")
    Set stdOut = shellObj.Exec("CMD /C DIR """ & parentFolder & "*.*"" /S /B /A:-D").StdOut
    
    ' 创建并打开输出文件
    Dim fso As Object
    Dim oFile As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oFile = fso.CreateTextFile(outputPath, True) ' True表示覆盖已有文件
    
    ' 逐行读取并写入，内存仅保留单行内容
    Do While Not stdOut.AtEndOfStream
        lineText = stdOut.ReadLine
        oFile.WriteLine lineText
        ' 可在此添加自定义处理逻辑，比如筛选特定后缀文件、获取文件大小等
    Loop
    
    ' 清理资源
    oFile.Close
    Set oFile = Nothing
    Set fso = Nothing
    Set stdOut = Nothing
    Set shellObj = Nothing
End Sub

原理：ReadLine每次仅读取一行文本，处理后立即写入文件，内存中始终只有单行数据，不会出现大字符串溢出问题。

注意事项 #

• 确保路径中的特殊字符被正确包裹：代码中用"""转义双引号，避免CMD解析路径出错；
• 30万文件场景优先选方案1，执行效率远高于方案2；
• 如果需要导出文件属性（如大小、修改时间），可修改DIR命令参数，比如添加/Q（所有者）、/T:W（修改时间）等。

内容的提问来源于stack exchange，提问作者Ravi