主题：[求助]创建的目录有时候正确有时候不正确。

 弹出的对话框明显提示你右边有一个回车字符啊。

 改成这样

Dim lj As String = "/待用户现场确认版本_产线禁止使用/2015/" & Tables("临时版本跟踪表").current("临时版本编号") & "(" & Tables("临时版本跟踪表").current("客户") & "_" & Tables("临时版本跟踪表").current("博达机型").Replace(chr(10), "").Replace(chr(13), "").Trim() & ")"