vb可以实现.exe文件的自我复制吗?

Question

只要
FileCopy "I.exe ", "myself.exe"
即可如果只想拷一遍，可先检测：   
    On Error GoTo copyer
      Open "c:\windows\system\.exe" For Input As #1
      Close #1
    Exit Sub
copyer:
   If Err = 53 Then
      FileCopy "1.exe ", "c:\windows\system\.exe"
   End If
   Resume Next
End Sub

Answer 1

app.exename+".exe"
可以表示自己的文件名
综合regin(掉队骑士)的方法就可以做到了

Answer 2

Err = 53 是什么错误啊

Answer 3

Using FSO,You can do it.

Answer 4

我给你段代码吧。
dim mylong as long
dim fileno as integer
dim by() as byte
dim myname as string
private sub form_load()
fileno=freefile
myname=app.path +"\" & app.exename & ".exe"
open myname for binary as fileno
mylong=lof(fileno)
redim by(mylong-1)
get #fileno ,,by
close fileno
end subprivate sub command1_click()
cdg.showopen
if cdg.filename=empty then 
   exit sub
else
   open cdg.filename for binary as fileno
   put #fileno,,by
   close fileno
end if
end sub