这是个批量加密文件夹的代码 看下哪里出问题了 非常感谢

Question

Sub 批量加密()
Set FSO对象 = CreateObject("scripting.filesystemobject")
文件夹 = "C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆解"
If Not FSO对象.folderexists(文件夹) Then
FSO对象.CreateFolder (文件夹)
Else
FSO对象.deletefolder (文件夹)

End If

Set 文件夹 = FSO对象.getfolder("C:\Users\0342455.OMR\Desktop\提取资料

\汇总\拆分结果")
For Each i In 文件夹.Files
DBEngine.CompactDatabase i, "C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆解" & i.Name, , , ":pwd=8959"
Next
FSO对象.deletefolder ("C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆

分结果")
Set 文件夹 = FSO对象.getfolder("C:\Users\0342455.OMR\Desktop\提取资料

\汇总\拆解")
文件夹.Move ("C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆分结果")
End Sub

运行时 这行代码怎么总是报错
DBEngine.CompactDatabase i, "C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆解" & i.Name, , , ":pwd=8959"

Answer 1

Sub 批量加密()
    Set FSO对象 = CreateObject("scripting.filesystemobject")
    文件夹 = "C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆解"
    If Not FSO对象.folderexists(文件夹) Then
        FSO对象.CreateFolder(文件夹)
    Else
        FSO对象.deletefolder(文件夹)
    End If
    Set 文件夹 = FSO对象.getfolder("C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆分结果")
    For Each i In 文件夹.Files
        DBEngine.CompactDatabase i, "C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆解\" & i.Name, , , ":pwd=8959"
    Next
    FSO对象.deletefolder("C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆分结果")
    Set 文件夹 = FSO对象.getfolder("C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆解")
    文件夹.Move("C:\Users\0342455.OMR\Desktop\提取资料\汇总\拆分结果")
End Sub