避免文件已运行时再次打开运行
时 间: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源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
学习心得
最新文章
- Access快速开发平台--lis...(10.17)
- Access快速开发平台--普通用...(10.14)
- 【Access源码示例】VBA代码...(10.12)
- Access累乘示例,Access...(10.09)
- 数值8.88,把整数8去掉,转化成...(10.08)
- 用ACCESS开发的销售数据分析软...(10.06)
- 【中秋及国庆优惠】Access培训...(10.05)
- 2024欢度国庆--庆祝国庆华诞7...(10.01)
- 【Access自定义函数】一个繁简...(09.30)
- 与OLE服务器或ActiveX控件...(09.29)