VBA Access中Shell控制台命令执行异常，需提取指定日期前文件到数组

嘿，我刚好碰到过类似的坑，来帮你一步步解决！

首先，你遇到的Access里只返回Windows版本信息的问题，本质是你用的执行方式没正确捕获命令的实际输出——默认情况下，直接用Shell函数或者简单的调用会拿到cmd.exe启动时的欢迎信息，而非你要的文件列表。另外，把文件名存入数组的需求，我们可以通过捕获输出后拆分字符串来实现。

一、替换命令执行方式，正确捕获输出 #

别用普通的Shell了，改用WScript.Shell的Exec方法，它能直接读取命令的标准输出（就是你控制台里看到的正确文件列表）。

二、用更可靠的命令筛选旧文件 #

推荐用forfiles命令，它能直接按修改日期筛选，比dir+findstr更精准。比如要找2024年1月1日之前修改的文件，命令格式是：

forfiles /p "你的目标文件夹路径" /s /m *.* /d "2024/01/01" /c "cmd /c echo @file"

参数说明：

• /p：指定要搜索的根路径
• /s：包含子文件夹
• /m：文件匹配模式（*.*表示所有文件）
• /d：日期条件，"yyyy/mm/dd"表示早于该日期，-30表示30天前的文件
• /c：执行的命令，echo @file会输出文件名（也可以用@path输出完整路径）

三、完整的Access VBA代码（含数组存储） #

下面是直接能用的代码，把目标路径和截止日期换成你的需求即可：

Sub GetOldFilesIntoArray()
    ' 配置参数
    Const targetFolder As String = "C:\Your\Target\Directory"
    Const cutoffDate As String = "2024/01/01" ' 格式必须是yyyy/mm/dd
    
    ' 构造forfiles命令
    Dim cmdString As String
    cmdString = "forfiles /p """ & targetFolder & """ /s /m *.* /d """ & cutoffDate & """ /c ""cmd /c echo @file"""
    
    ' 执行命令并捕获输出
    Dim wsh As Object, execResult As Object
    Set wsh = CreateObject("WScript.Shell")
    Set execResult = wsh.Exec(cmdString)
    
    ' 读取所有输出内容
    Dim rawOutput As String
    rawOutput = execResult.StdOut.ReadAll()
    
    ' 将输出拆分为数组，同时清理空行
    Dim rawArray() As String, fileArray() As String
    rawArray = Split(rawOutput, vbCrLf)
    
    Dim idx As Integer, cleanIdx As Integer
    cleanIdx = 0
    ReDim fileArray(UBound(rawArray))
    
    For idx = LBound(rawArray) To UBound(rawArray)
        If Trim(rawArray(idx)) <> "" Then
            fileArray(cleanIdx) = rawArray(idx)
            cleanIdx = cleanIdx + 1
        End If
    Next idx
    
    ' 调整数组到实际元素数量
    If cleanIdx > 0 Then
        ReDim Preserve fileArray(cleanIdx - 1)
    Else
        ReDim fileArray(0)
        fileArray(0) = "未找到符合条件的文件"
    End If
    
    ' 测试：在立即窗口输出数组内容
    Dim i As Integer
    For i = LBound(fileArray) To UBound(fileArray)
        Debug.Print fileArray(i)
    Next i
    
    ' 释放对象
    Set execResult = Nothing
    Set wsh = Nothing
End Sub

关键要点说明 #

1. 为什么用Exec而不是Shell：Shell只是启动命令进程，不返回输出；Exec能获取StdOut流，直接拿到命令的执行结果。
2. 数组的清理：命令输出末尾会有一个空行，所以必须过滤掉空元素，避免数组里出现无效值。
3. 日期格式：forfiles的日期参数必须用yyyy/mm/dd，不然会报错，这点要注意。

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