Question

如果在vb中在当前路径新建一个目录

Dim fso As New FileSystemObject
fso.CreateFolder ("dir.drive\新建文件夹")

这样不行,要怎么改呢
怎么实现若目录名已经存在的提示?

Answer 1

Dim a As New FileSystemObject

If a.FolderExists(App.Path & "\新建文件夹") Then ‘检查文件夹是否存在，App.path是指当前文件夹
MsgBox "文件夹已经存在"
Exit Sub
End If
a.CreateFolder (App.Path & "\新建文件夹") ‘在当前文件夹中创建“新建文件夹”

Answer 2

靠,这还不简单!~
看我的

Private sub Command1_click
If Dir(App.Path & "\新建文件夹", vbDirectory) <> "" Then
MsgBox "目录已存在"
else
MkDir (App.Path & "\新建文件夹")
end if
exit sub

Answer 3

245016947.q-zone.qq.com