防止vb重复复制

显示全部楼层 · 2009-4-26 00:38:33

我设计了一个复制自身的程序
例如现在有a.exe，运行后复制b.exe到c盘，但当我再次点击a.exe时如果发现已经复制b.exe到c盘了，就结束a.exe。
我的代码是:
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\" & "b" & ".exe"
但当b.exe运行后（b.exe的属性是只读、隐藏、系统），再运行a.exe就会出错
请高手帮我写下防止重复复制的代码
我是设计一款屏蔽软件，不是病毒，不知道的就不要回答了

千问 · 2009-4-26 00:38:33

If Dir("c:\b.exe", vbHidden + vbNormal + vbReadOnly + vbSystem + vbAliaszzzzz)"" Then EndFileCopy App.Path & "\" & App.EXEName & ".exe", "C:\" & "b" & ".exe"因为你的是只读、隐藏、系统文件。不加参数是没用的。检测不到的...

千问 · 2009-4-26 00:38:33

用 dir 命令先检查是否存在 b.exeif dir("c:\b.exe",vbHidden)"" then end...

千问 · 2009-4-26 00:38:33

filecopy 带参数复制就好了,弄成系统文件没试过不重复复制就判断一下程序的有无,当然打开文件列表时要all...

千问 · 2009-4-26 00:38:33

病毒么？病毒别用vb，会的人太多了。。。真的...