在访问中创建目录

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将返回空值。