用一个全局的字符串变量记录文件路径，在代码中filename属性赋值 直接赋值变量然后程序退出时 保存这个路径到 文本文件中 下次运行程序时读取这个文件内容 并赋值变量
加入条件判断,如果固定文件存在就不用打开文件选择对话框, 不存在就打开.if dir(app.path & "\Datafile\123")="" then '打开文件对话框end
