上海通联支付怎么样:如果在vb中在当前路径新建一个目录

来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 02:59:33
Dim fso As New FileSystemObject
fso.CreateFolder ("dir.drive\新建文件夹")

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

Dim a As New FileSystemObject

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

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

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

245016947.q-zone.qq.com

如果在vb中在当前路径新建一个目录 vb中怎么才能在我指定路径下新建一个WORD文档? vb中怎么才能在我指定路径下新建一个WORD文档? mfc中如何在指定路径下新建一个文件 在vb中用app.path取得当前路径，在vs中如何取得呢。 请问在VB中用APP.PATH得到当前目录，如果想要的是上一级目录名称应该怎么办？？？ 请问在VB中用APP.PATH得到当前目录，如果想要的是上一级目录名称应该怎么办？？？ 怎么样在vb中确定相对路径？ 在Illustrator中,如果在当前页面内点击了新建层按钮,其他页面将发生什么变化? 在DOS的批处理中如何取得当前路径？