运行时错误'91'vba-access

Question

嘿我的程序检查一个zip文件并将其复制到另一个目录。然而，当我编译它时，偶然发现了oApp上的“运行时错误'91'对象变量或者块变量未设置”。

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访问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必须包含带扩展名的路径和文件名。