【Access文章】新建文件夹

时　间:2017-06-07 14:26:59
作　者:杨雪   ID：42182  城市：南京
摘　要:在指定的位置新建文件夹，可以使用MkDir关键字
正　文:

如果需要在指定的位置新建文件夹，可以使用MkDir关键字，其具体语法：

          MkDir[文件夹路径]

如果新建的文件夹已经存在，就会出现"路径/文件访问错误。"

'在当前位置新建文件夹
Sub 新建文件夹()
On Error GoTo 错误
    Dim folderName, folderPath As String
    '获取新建文件夹的名称，默认为“新建文件夹”
    folderName = InputBox("请输入文件夹的名称", "文件夹名", "新建文件夹")
    '设置新建文件夹的路径
    folderPath = CurrentProject.Path & "\" & folderName
    '新建文件夹
    MkDir folderPath
    Exit Sub
错误: MsgBox Err.Description
End Sub