CopySelf
Copy itself to a location specified.
AI
AI சுருக்கம்: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
மூலக் குறியீடு
'*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
அசல் கருத்துகள் (3)
வேபேக் மெஷினிலிருந்து (Wayback Machine) மீட்டெடுக்கப்பட்டது