運行時錯誤'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必須包含帶擴展名的路徑和文件名。