3

我正在使用 Access 2010,这是我的参考库和 Access VB IDE 中可用的 FileSystemObject 方法的屏幕截图:

在此处输入图像描述


当我启动此对象时,我似乎无法访问熟悉的方法,因为此示例调试结果出现异常:

在此处输入图像描述


我还使用显式声明和初始化变量来获得相同的结果。

有什么想法可能是错的吗?


要重播@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", ";")
4

1 回答 1

4

这里的问题GetFolder()是正在传递一个包含文件完整路径的字符串,并且正确地抱怨这样的文件夹不存在。如果要提取特定文件所在的文件夹,则可以使用类似

fso.GetFile("C:\Users\Public\Database1.accdb").ParentFolder
于 2013-10-20T17:38:38.180 回答