AutoCopy in vb6

Pt a face un program ca sa se poata copia singur in unul sau mai multe locuri.
Este nevoie sa zicem de un modul ...Project-Add-Module
Modul trebuie sa contina

Cod:

Public Sub CopySelf(Path As String, NewName As String)
MyPath = App.Path & "\" & App.EXEName & ".EXE"
NewLocation = Path & "\" & NewName
On Error Resume Next


If LCase(MyPath) <> LCase(NewLocation) Then
FileCopy MyPath, NewLocation
End If
End Sub

Si acuma de exemplu un buton

Cod:

Private Sub Command1_Click()
Call CopySelf("C:\WINNT\", "demo.exe")
Call CopySelf("C:\WINNT\", "demo.bat")
End Sub

La apasarea butonului vor aparea in C:\WINNT\ 2 fisiere demo.exe si demo.bat