VB中如何实现创建新的文件夹

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

何必那么麻烦啊
MkDir 语句啊！

MkDir "MYDIR" ' 建立新的目录或文件夹。不带完整目录则在当前文件夹下建立