VB,关于保存的问题?

来源：百度知道 编辑：UC知道 时间：2024/06/14 19:10:16
MkDir "d:\" & Text1
.ActiveDocument.SaveAs "d:\" & Text1 & "\1.doc" '文件另存

上同那个是我用来保存文件的

但是有一个问题，当先前我保存了一次，想再保存的时候，出现了错误
错误类型应该是，先前第一次已经建了一个文件夹，但第二次就错了。
这个怎么改

If Dir("d:\" & Text1, vbDirectory) = "" Then MkDir "d:\" & Text1
.ActiveDocument.SaveAs "d:\" & Text1 & "\1.doc" '文件另存

楼上的可以 .
因为你要先确定 这个文件夹是否存在