Question

要求VB对话框窗口在主窗口的dir1.path下建立一个可命名的文件夹怎么编？

Private Sub Form_Load()
Me.Icon = LoadPicture("")
Dim Folder As String
Folder = Textlog
End Sub

Private Sub OKButton_Click()
Dim fs As New FileSystemObject
fs.CreateFolder (Dir1.Path & Folder)
msgi = MsgBox("执行成功！", 64, "完成")
End Sub
这么编出错误了，不知道该如何编。
要第一个方法出现实时错误！424，要求对象
第二个回答中的right报必选参数

Answer 1

Private Sub Form_Load()
Me.Icon = LoadPicture("")
End Sub

Private Sub OKButton_Click()
Dim fs As New FileSystemObject
Dim Folder As String '存储文件夹名称
Dim Path As String '存储要新建的文件夹的路径

Folder = Textlog '取得文件夹名称

If Right(Dir1.Path,1) = "\" Then '判断Dir1返回路径的最右边一个字符是否是否为“\”
Path = Dir1.Path & Folder
Else
Path = Dir1.paht & "\" & Folder
End If

If fs.FolderExists(Path) = True Then '判断文件夹是否已经存在
MsgBox "该文件夹已经存在！", vbInformation + vbOKOnly, "提示"
Else
fs.CreateFolder Path '开始创建新的文件夹
MsgBox "创建新文件夹成功！", 64, "完成"
End If
End Sub

注意：
Dim fs As New FileSystemObject 定义这个变量数据类型的前提是引用类“Microsoft Scripting Runtime”，方法：

选择菜单栏中的“工程”选项下的“引用”，在弹出的对话框中找到“Microsoft Scripting Runtime”，将其选中，然后点击“确定”按钮即可。

明白否？

Answer 2

如果只是为了创建目录，可以用下面的语句：
MkDir Me.Dir1.Path & Folder
如果你想用你那种方式：则需要添加引用：选择“工程”菜单下“引用”，然后找到“Microsoft Scripting Runtime”，选中，然后“确定”就可以了使用FileSystemObject对象了。

Dim fs As New FileSystemObject
fs.CreateFolder (Dir1.Path & Folder)
下面的方法更简练
' MkDir Me.Dir1.Path & Folder