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

http://www.foxtable.com/webhelp/topics/0682.htm

主窗口的代码放到BeforeConnectOuterDataSource事件判断处理即可，没有必要重启项目

其实完全没有必要复制，直接使用项目里的文件不行吗？何必多此一举

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

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

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

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

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

        End If

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

    End If

    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\文件管理助手【请勿删除】\文件管理.mdb;Persist Security Info=False"

End If