在訪問中創建目錄

Question

我正在使用MS訪問根據我的表數據輸出一些XML文件。

爲了做到這一點，我需要我的腳本創建目錄，如果它不存在。

該目錄應該基於表中的一個字段。現在它正在使用一個字段「類別」。

If Len(Dir("P:\" + rs!Category, vbDirectory)) = 0 Then 
MkDir "P:\" + rs!Category 
End If 

它似乎工作，但給了我一個錯誤。 （運行時錯誤13類型不匹配）

Answer 1

Dir(Null, vbDirectory)拋出錯誤13，「類型不匹配」。

請確保rs!Category在撥打Dir()時不爲空，因爲"P:\" + Null將返回空值。