• Home
 · 
• Files/File Controls/Input/Output
 · 
• CopySelf

CopySelf

Copy itself to a location specified.

Assumes
There's really nothing to know about this function other than that it can copy itself to a location specified...

Rate CopySelf

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

'*needs to be compiled before it copies its self
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
Private Sub Form_Load()
Call CopySelf("C:\", "bleh.sys")
End Sub