避免文件已运行时再次打开运行

时　间:2024-07-17 13:40:40
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:有时，一个软件已经运行了，但由没太注意，于是又第2次打开软件运行，会导致软件速度变慢。本文阐述了如何避免这种情况的发生。
正　文:

      当需要避免文件二次打开时，可以在打开后识别一下有没有打开过，这里采用的思路是：
      步骤1：第一次打开文件时，判断当前程序文件夹下的：\Images\123.txt是否存在
      步骤2：如果123.txt存在，直接退出
      步骤3：如果123.txt不存在，正常使用文件，并创建一个文件，即当前程序文件夹下的：\Images\123.txt
      步骤4：当文件关闭退出时，删除当前程序文件夹下的：\Images\123.txt


      例如，有一个保持常开的窗体SysFrmMain,在该窗体中，添加如下代码：
      1.窗体的加载事件：

    Dim fileName As String
    fileName = CurrentProject.Path + "\Images\123.txt"'当前程序所在文件夹下
    If Dir(fileName) = "" Then'如果文件不存在 

       '利用一个表 Sys_LookupList来导出123.txt文件,这里也可以利用别的数据量更少的表
        DoCmd.OutputTo acOutputTable, "Sys_LookupList", "MS-DOSText(*.txt)", fileName, False, "", , acExportQualityPrint
    Else
        MsgBox "文件之前已打开！", vbCritical, "提示"
        DoCmd.Quit'文件关闭退出
        Exit Sub
    End If

      2.窗体的卸载事件：

    Dim fileName As String
    fileName = CurrentProject.Path + "\Images\123.txt"
    If Dir(fileName) <> "" Then'不为空，即存在
        Kill fileName'删除文件 
    End If

      3.特殊情况：
      如果因为不正常退出导致123.txt文件未被删除，那么就需要人为去找到这个文件删除，以免发生由于该文件存在总是直接退出。


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店