Question

VB指定创建文件夹没有就创建 有的话就不创建 保证程序运行 大家都知道如果你同目录已经有VB指定创建的文件

大家都知道如果你同目录已经有VB指定创建的文件夹 那样就运行不了出错，

有没有方法啊 当有同样的文件夹时真接运行 没有时就创建

Answer 1

判断实在是太麻烦了，
我写了一个MakeMyDir过程，
如果已创建，则产生的错误会被
On Error语句避免掉。

很简单吧！

Option Explicit
Private Sub MakeMyDir(ByVal CreateDir As String)
On Error Resume Next
MkDir CreateDir
End Sub
Private Sub Form_Load()
MakeMyDir "c:\1"
End Sub

Answer 2

声明一个FSO对象，利用其查找相关文件夹是否存在，不存在则创建