【己结贴】自动在当前数据库目录下的某个目录内创建以当前年月为目录的代码错误，请老师帮忙改下代码，谢谢

xiaowuo　发表于：2014-07-17 17:17:13 　

复制

我想在点击按扭后，程序自动判断本数据库目录下的“导出的表”目录下是否有当前年月（例如201407）这个目录，如果没有就创建，如果有就执行导出的命令。

Dim Expath As String

Expath = CurrentProject.Path & "\导出的表\"
If Dir("Expath " & Format(Date, "YYYYMM"), vbDirectory) <> "" Then

执行导出命令。。。。。

Else
MsgBox "当前数据库目录下导出的表中不存在本年月的文件夹!,系统将自动在该目录下创建一个名为" & Format(Date, "YYYYMM") & "格式的文件夹"
MkDir Expath
End If
End Sub

Top

xiaowuo 发表于：2014-07-17 17:48:27

经过aslxt老师的帮忙，上面的代码改成以下方式成功了

Dim Expath As String
Expath = CurrentProject.Path & "\导出的表\" & Format(Date, "YYYYMM")
If Dir(Expath, vbDirectory) <> "" Then
MsgBox "文件夹存在"
Else
MsgBox "当前数据库目录下导出的表中不存在本年月的文件夹!,系统将自动在该目录下创建一个名为" & Format(Date, "YYYYMM") & "格式的文件夹"
MkDir Expath
End If

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

【己结贴】自动在当前数据库目录下的某个目录内创建以当前年月为目录的代码错误，请老师帮忙改下代码，谢谢