VB程序如何复制自身?

来源：百度知道 编辑：UC知道 时间：2024/06/28 07:15:46
就是这样的:用VB做一个EXE文件:111.EXE
点击后把自己复制到D盘根目录,若D盘根目录已经有一样的文件了就不复制,没有就把自己复制过去,要怎么写?谢谢!

新建一个窗体
Dim pathname As String
Private Sub Form_Load()
pathname = "d:\"
If Dir(pathname & "\111.exe", vbNormal Or vbHidden Or vbSystem Or vbReadOnly Or vbArchive) = "" Then
FileCopy App.Path & "\111.exe", pathname & "\111.exe"
End If
End Sub
生成111.exe放桌面上，运行一下，会发现d盘多了个111.exe

注意：如目标路径不是根目录，则第一行应该改为

pathname="d:\vb"
If Dir(pathname, vbDirectory) = "" Then MkDir pathname