Question

嘿我的程序检查一个zip文件并将其复制到另一个目录。但是我偶然发现了＆＃34;运行时错误＆＃39; 91＆＃39;对象变量或没有设置块变量＆＃34;在我编译时的oApp上。

Sub UnZip(Fname As Variant)

    Dim oApp As Object
    Dim FileNameFolder As Variant

    FileNameFolder = "P:\"
    Set oApp = CreateObject("Shell.Application")
    oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items

End Sub

问题是什么？

我正在使用MS Access 2010

Answer 1

.Copyhere适用于文件夹对象。

Sub UnZip(Fname As Variant)
    dim objShell
    dim objFolder

    set objShell = CreateObject("shell.application")
    set objFolder = objShell.NameSpace("P:")

    If not objFolder is nothing then
        objFolder.CopyHere(Fname)
    End If

End Sub

Fname必须包含带扩展名的路径和文件名。

运行时错误＆＃39; 91＆＃39; VBA访问

1 个答案: