VB 下如何防止程序多次运行

App.PrevInstance能够判断是否一个实例。你的意思大概是复制在别的目录下的程序也不允许运行。

可以在注册表里写程谨握漏序的状态，程序启动时检查状态，如果怕皮世破解，也可以定时检测，这祥烂样就能防止程序多次运行了。

首先这个要看的子函数执行的情况了，比如你子函数要8秒才能执行完成，你1秒钟执行一次，到时会有好几个子函数在运行，肯定会影响程序运行的。你要侍神调整时间才能让子函数不影响主程序；

再一个，如果不扰孝想影响主程序，你可以再建一个程序，专门用来执行子函数，然后让那个程序用定时器每秒执行一次子函数老李亏，这样就不会影响主程序；

你的问题问搜歼锋的不改液明不白：

private sub command1_click

locate = 地址.text

if lcase(right(locate,4))<>".txt" or dir(locate)="" then

if MsgBox("请输入正确世晌的径",vbRetryCancel+vbcritical,"地址错误")=vbcancel then

unload me

else

地址.setfocus

end if

exit sub

end if

Open locate For Input As #1

...

end sub

---