怎样用VB创建文件夹？

在Text1里有一个绝对路径，判断是否存在这个文件夹。

存在则d出对碰圆搏话框：腔稿文件已存在；不存在则依照路径新建文件夹并d出对话框：创笑祥建完毕！

分类: 电袭颤脑/网络 >>程序饥禅李设烂迟计 >>其他编程语言

解析:

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

---