在訪問使用FileSystemObject的VBA

我使用Access 2010，這裏是從我的參考圖書館和avalible FileSystemObject的方法截圖從Access VB IDE中：在訪問使用FileSystemObject的VBA

enter image description here

當我發起這個對象我似乎無法能夠訪問熟悉的方法，因爲我得到異常這個例子調試結果：

enter image description here

我也使用顯式聲明和初始化變量來獲得相同的結果。

任何想法可能是錯的？

要在@重播4dmonster評論，這是實際的數組：

For Each p In Split("f:\temp\test\op1\gev_final_1.xlsx;f:\temp\test\op1\gev_final_2.xlsx;f:\temp\test\op1\gev_final_3.xlsx;f:\temp\test\op1\gev_final_4.xlsx;" & _ 
        "f:\temp\test\op1\gev_final_5.xlsx;f:\temp\test\op1\gev_final_6.xlsx;f:\temp\test\op1\gev_final_7.xlsx;f:\temp\test\op2\gev_final_8.xlsx;" & _ 
        "f:\temp\test\op2\gev_final_9.xlsx;f:\temp\test\op2\gev_final_10.xlsx;f:\temp\test\op2\gev_final_11.xlsx;f:\temp\test\op2\gev_final_12.xlsx;" & _ 
        "f:\temp\test\op2\gev_final_13.xlsx;f:\temp\test\op3\gev_final_14.xlsx;f:\temp\test\op3\gev_final_15.xlsx;f:\temp\test\op3\gev_final_16.xlsx;" & _ 
        "f:\temp\test\op3\gev_final_17.xlsx;f:\temp\test\op3\gev_final_18.xlsx;f:\temp\test\op3\gev_final_19.xlsx;f:\temp\test\op4\gev_final_20.xlsx;" & _ 
        "f:\temp\test\op4\gev_final_21.xlsx;f:\temp\test\op4\gev_final_22.xlsx;f:\temp\test\op4\gev_final_23.xlsx;f:\temp\test\op4\gev_final_24.xlsx;" & _ 
        "f:\temp\test\op5\gev_final_25.xlsx;f:\temp\test\op5\gev_final_26.xlsx;f:\temp\test\op5\gev_final_27.xlsx", ";")

來源

2013-10-20 theta

是什麼錯誤消息說？ –

它說「路徑無效」，雖然文件存在。我現在將代碼作爲VBS進行測試，並且WSH也報告了相同的錯誤。但是，如果我打印'p'變量並將該字符串放入Windows，則會按預期打開對話框文件。驅動器是USB的，但這不應該... – theta

向我們展示完整路徑p – 4dmonster

這裏的問題是，GetFolder()被傳遞包含一個文件完整路徑的字符串，它是正確地抱怨這樣的文件夾不存在。如果你想提取文件夾在特定文件駐留，那麼你可以使用類似

fso.GetFile("C:\Users\Public\Database1.accdb").ParentFolder

來源

2013-10-20 17:38:38

在訪問使用FileSystemObject的VBA

回答

相關問題