How do I have my VB app copy its self?[sloved! yay! thanks all!]

[the_inferno]

How do I have my VB app copy its self?
Thanks.

[dglienna]

you can use SHELL "copy c:\sample\a.exe c:\backup" to copy the .exe

[the_inferno]

you can use SHELL "copy c:\sample\a.exe c:\backup" to copy the .exe

Thanks but would'nt it have to be

you can use SHELL "copy c:\sample\a.exe c:\backup.exe" to copy the .exe

EDIT: oh and I noticed from another topic that, thats from the command prompt can't I do this in visual basic code? Thanks.

[RhinoBull]

Just use an ordinary Filecopy() - VB's native function.

[the_inferno]

Thanks. Thats helpful but I still need to know one more thing, the app path, how do I do that?

[RhinoBull]

Isn't your exe located in your application's directory ??? Who else would know ???

FileCopy App.Path & "\myexe.exe", "c:\temp\myexe.exe"

[ice_531]

App.Path function

dim myProgramPath as string
myProgramPath = App.Path

to get the exact path + filename

App.Path & "\myapp.exe"

[ice_531]

You beat me Rhino

*bows at your greatness*


the_inferno, Maybe you should read up on commonly used VB Functions... your coding experience would be made alot easier when you know the syntax

[RhinoBull]

You beat me Rhino

I'm not competing with nobody ...

[the_inferno]

Yay! thank you all very much you sloved my question, can this be done while the program is running?

[ice_531]

Did you try it


::: Once your thread is resolved add [resolved] to your original post and a checkmark :::

Oh and Happy New Year

[dglienna]

you don't have to re-specify the filename, as long as it is a different path. filecopy works as well, but DOS in forever burnt into my brain

[manavo11]

In MSDN I found for FileCopy :

If you try to use the FileCopy statement on a currently open file, an error occurs.

So I assume (I'm not sure) that you can't copy your own exe like that... Maybe with a batch file? However the CopyFileEx API works fine :

'in a form (Form1)
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim Ret As Long
    'set the graphics mode to persistent
    Me.AutoRedraw = True
    'print some text
    Me.Print "Click the form to abort the filecopy"
    'show the form
    Me.Show
    'start copying
    Ret = CopyFileEx(App.Path & "\YourExeNameHere.exe", "c:\copy.exe", AddressOf CopyProgressRoutine, ByVal 0&, bCancel, COPY_FILE_RESTARTABLE)
    'show some text
    Me.Print "Filecopy completed " + IIf(Ret = 0, "(ERROR/ABORTED)", "successfully")
End Sub
Private Sub Form_Click()
    'cancel filecopy
    bCancel = 1
End Sub
 
'in a module
Public Const PROGRESS_CANCEL = 1
Public Const PROGRESS_CONTINUE = 0
Public Const PROGRESS_QUIET = 3
Public Const PROGRESS_STOP = 2
Public Const COPY_FILE_FAIL_IF_EXISTS = &H1
Public Const COPY_FILE_RESTARTABLE = &H2
Public Declare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long
Public bCancel As Long
Public Function CopyProgressRoutine(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long, ByVal lpData As Long) As Long
    'adjust the caption
    Form1.Caption = CStr(Int((TotalBytesTransferred * 10000) / (TotalFileSize * 10000) * 100)) + "% complete..."
    'allow user input
    DoEvents
    'continue filecopy
    CopyProgressRoutine = PROGRESS_CONTINUE
End Function

[RhinoBull]

Don't believe MSDN too much - you'll get burned, Manavo.
What they say is true but doesn't really apply to executable files:

Private Sub Command1_Click()
    FileCopy App.Path & "\" & App.EXEName & ".exe", _
             "c:\temp\" & App.EXEName & ".exe"
End Sub

Compile and test it - that's all I can tell you.

[RhinoBull]

you don't have to re-specify the filename, as long as it is a different path. filecopy works as well, but DOS in forever burnt into my brain

It's about time to forget all about it ...

[manavo11]

Don't believe MSDN too much - you'll get burned, Manavo.

I guess you have a point there Trial & Error seems safer than MSDN

[RhinoBull]

... Trial & Error seems safer than MSDN

Indeed.

[the_inferno]

Hey thanks.
P.s ehy you ever notice that its like half that little feller arm comes off in that wave?



Meet the fouckers comming to theaters.

[RhinoBull]

You're welcome but this is not a chit-chat, inferno.