vb程序代码中如何提示目录不存在并创建不存在的目录

Answer 1

dir
Mkdir

Answer 2

使用 Dir 函数来检查某些文件或目录是否存在.
使用MKDir创建一个新的目录或文件夹。

Answer 3

zgjchina1(还俗和尚.COM)　说的对,另外还可以用API实现.

Answer 4

源码……？

Answer 5

不过用Mkdir只能建立一级目录，如果要建立多级目录，还得要循环判断

Answer 6

If Dir("c:aaa") = "" Then
MkDir ("c:aaa")
End If

Answer 7

直接用 If Dir("c:aaa") = "" Then 'aaa 是个目录
MkDir ("c:aaa")
End If
会产生错误

而用 If Dir("c:aaa*.*") = "" Then
MkDir ("c:aaa")
End If
当aaa下为空时亦会产生错误。

有无不会产生错误的万全之策？

Answer 8

dim fs as new filesystemobject

if not fs.FolderExists then
fs.createfolder("c:temp")
end if

Answer 9

FSO

Answer 10

If Dir("c:temp", vbDirectory) = "" Then MkDir "c:temp"

Answer 11

更具体的
d$ = "c:temp"
If Dir(d$, vbDirectory) = "" Then
If MsgBox(d$ & "目录不存在,要创建吗?", vbYesNo + vbQuestion) = vbYes Then MkDir d$
End If

Answer 12

If Dir("c:mytemp", vbDirectory) = "" Then
MkDir "c:mytemp"
end if

一定要加 vbDirectory,若该目录是隐藏的,还要加vbHide等等

Answer 13

还是用fso模型比较方便一些

Answer 14

在on error goto中添加错误处理，在处理中建立文件夹