如何使用变量而非硬编码设置objShell.Namespace

问题根源 #

你遇到的核心问题有两个：

1. 用FSO.CreateTextFile创建的zip文件只是空文本文件，缺少标准zip文件头，导致Shell无法将其识别为可操作的zip容器
2. 变量路径场景下，Shell对未正确初始化的文件兼容性更差，即便路径格式正确也无法返回有效对象

解决方案 #

以下是修正后的完整代码，同时解决压缩异步执行不完整的问题：

Sub ZipFolderContents()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    Dim objShell As Object
    Dim objFolder As Object     ' 源文件夹
    Dim objZipFile As Object    ' Zip容器对象
    
    Dim fldPth As String
    Dim zipFldPth As String
    Dim zipFileNum As Integer
    
    fldPth = Trim("C:\Users\bruker\Desktop\MyFolder")
    zipFldPth = Trim("C:\Users\bruker\Desktop\Archive.zip")
    
    ' 删除旧的zip文件
    If FSO.FileExists(zipFldPth) Then
        FSO.DeleteFile zipFldPth, True
    End If
    
    ' 创建并初始化有效的zip文件（写入标准zip文件头）
    zipFileNum = FreeFile()
    Open zipFldPth For Binary Access Write As #zipFileNum
    Put #zipFileNum, , "PK" & Chr(3) & Chr(4) & Chr(14) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0)
    Close #zipFileNum
    
    ' 检查路径有效性
    If Not FSO.FolderExists(fldPth) Then
        MsgBox "源文件夹不存在", vbCritical
        Exit Sub
    End If
    If Not FSO.FileExists(zipFldPth) Then
        MsgBox "Zip文件创建失败", vbCritical
        Exit Sub
    End If
    
    ' 初始化Shell对象
    Set objShell = CreateObject("Shell.Application")
    
    ' 获取文件夹对象（变量路径可正常识别）
    Set objFolder = objShell.Namespace(fldPth)
    Set objZipFile = objShell.Namespace(zipFldPth)
    
    ' 验证对象创建结果
    If objFolder Is Nothing Or objZipFile Is Nothing Then
        MsgBox "无法创建Shell对象", vbCritical
        Exit Sub
    End If
    
    ' 复制文件到zip（4=隐藏进度框，16=覆盖现有文件）
    objZipFile.CopyHere objFolder.Items, 4 + 16
    
    ' 等待异步压缩完成（避免进程提前结束导致压缩不完整）
    Do While objZipFile.Items.Count < objFolder.Items.Count
        DoEvents
    Loop
    
    ' 清理对象
    Set objZipFile = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
    Set FSO = Nothing
    
    MsgBox "压缩完成", vbInformation
End Sub

关键修改说明 #

• Zip文件初始化：通过二进制写入标准zip文件头，让Shell能正确识别为压缩容器，而非空文本文件
• 路径处理：用Trim()确保路径无多余空格，避免Shell解析失败
• 异步等待：添加循环等待逻辑，解决CopyHere异步执行导致的压缩不完整问题
• CopyHere参数：4 + 16控制不显示进度框并覆盖现有文件，可根据需求调整（如移除4显示进度框）

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