主题：access数据源 自动获取当前文件路劲下的access文件并加载

项目启动数据源BeforeConnectOuterDataSource事件代码：

If FileSys.FileExists("d:\文件管理助手【请勿删除】\文件管理.mdb") Then '判断文件夹下是否有文件,如果有

    If e.name="文件管理ACC" Then

        e.C

    End If

Else

    If e.name="文件管理ACC" Then

        e.C & e.ProjectPath & "Attachments\文件管理.mdb;Persist Security Info=False;Jet OLEDB:Database Password=cnsjroom@163.com"

    End If

End If

主窗体启动后事件代码：

If FileSys.DirectoryExists("d:\文件管理助手【请勿删除】") Then '判断文件夹是否存在,如果存在

    ……

Else

    FileSys.CreateDirectory("d:\文件管理助手【请勿删除】")

    FileSys.CopyFile(ProjectPath & "Attachments\文件管理.mdb", "d:\文件管理助手【请勿删除】\文件管理.mdb")'如果没有 就把指定目录下的文件复制到指定目标地址

    MessageBox.Show("项目初始化成功,点击确定退出项目后重新打开项目!","温馨提示")

    e.Form.Close

    Syscmd.Project.Exit()

    Application.Restart()

End If

打开主窗体时实现先判断是否有d:\文件管理助手【请勿删除】文件夹，如果没有就创建目录，然后复制指定文件，然后提示初始化成功，重启项目

如果有目录，就判断是否有文件管理.MDB这个文件，如果有就直接连接数据库文件，并进入项目

麻烦老师看看上述思路和代码还有没有其它更佳方法？