VB创建空白文件夹

来源：百度知道 编辑：UC知道 时间：2024/05/14 16:23:41
请教大家一个VB问题
我用MkDir 创建文件夹 发现它很不好用 要是目标文件夹已经存在的时候就会出现错误 有没有什么代码可以在不确定目标文件夹 是否 存在的情况下创建 请写清楚格式 感谢

我转贴的.不知道这样行不行呵:

Option Explicit
Dim fso As New FileSystemObject
Dim newfolder As Folder
上面在通用中写入

下面建立一个按钮打入代码 '后面是解释
Private Sub Command1_Click()
Set newfolder = fso.GetFolder(InputBox("文件要建立在哪个盘？如c:")) '这边也可以用inputbox("要建立的文件夹！")
'创建文件夹
If (fso.FolderExists("c:\windows") = True) Then 'c盘windows是都有的所以用c:\windows
fso.CreateFolder (InputBox("文件的全url？如d:\esinc"))
MsgBox ("新建成功！")
Else
MsgBox ("新建不成功!")

End If
Set newfolder = Nothing
End Sub

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long

Private Sub Form_Load()
MakeSureDirectoryPathExists "c:\0\1\2\3\"
End Sub

用这个api 很好用 我一直用它！~

喜欢API