在访问中创建目录

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，＆＃34;输入不匹配＆＃34; 。

请在致电rs!Category时确保Dir()不为空，因为"P:\" + Null将返回Null。