求助：创建文件夹的问题

谢谢msgj的热心帮助。已经找到了解决办法。基本上与你提供的方法相同。代码如下：

Private Sub cmd开始备份_Click()
    Me.MousePointer = 11    ''鼠标指针——沙漏，表示等待状态。
    Dim mydir As String
    mydir = "F:\MZTC2010数据备份文件"
    If Dir(mydir, vbDirectory) = "" Then
      If MsgBox("指定的路径不存在，是否要创建该文件夹，并将数据库文件备份到这个文件夹中？", vbYesNo + vbQuestion, "系统询问") = vbYes Then
       MkDir mydir    ' 建立新的目录或文件夹。
       FileCopy App.Path & "\MZTC2010.mdb", "F:\MZTC2010数据备份文件\MZTC2010数据备份.mdb"   '开始备份
      End If
    Else
      FileCopy App.Path & "\MZTC2010.mdb", "F:\MZTC2010数据备份文件\MZTC2010数据备份.mdb"   '目标文件夹已经存在，直接备份，
                                                                                            '用新的备份文件覆盖原有备份文件
    End If
   
    Me.MousePointer = 0     '鼠标指针——（缺省值）形状由对象决定。
    If MsgBox("操作完毕。" + Chr(13) + Chr(10) + "是否退出程序？" + Chr(13) + Chr(10) + "选择“是”退出；" + Chr(13) + Chr(10) + "选择“否”，程序继续运行。", vbYesNo + vbQuestion, "系统询问") = vbYes Then
       End
    Else
       Unload Me
    End If

End Sub

[ 本帖最后由 lhf391855540 于 2009-11-6 22:28 编辑 ]