创建access目录

Question

我正在使用MS访问根据我的表数据输出一些XML文件。

如果这个目录不存在，我需要脚本创建这个目录。

目录应该基于表中的一个字段。现在它正在使用字段"category"。

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

它似乎工作，但给我一个错误。(运行错误13类型不匹配)

Answer 1

Dir(Null, vbDirectory)抛出错误13，"Type mismatch"。

当你调用Dir()时，确保rs!Category不是Null，因为"P:" + Null将返回Null