[VB6] 自分自身のコピー

    Option Explicit

    Private Const DOUBLE_QUOTE As String = """"

    Public Sub Main()
        Dim stSourcePath As String
        stSourcePath = CombinePath(App.Path, App.EXEName & ".EXE")

        Dim stDestPath As String
        stDestPath = CombinePath(GetTempPath(), App.EXEName & ".EXE")

        '/ 本稼動させる
        If stSourcePath = stDestPath Then
            Dim hForm1 As Form1
            Set hForm1 = New Form1

            Call MsgBox("シャドウからの起動なので本稼動させる")
            Call hForm1.Show(vbModal)

            Exit Sub
        End If

        '/ テンポラリにシャドウ コピー
        Call CopyFile(stSourcePath, stDestPath)
        Call MsgBox("シャドウからの起動ではないのでコピーした")

        '/ シャドウを起動
        Call Shell(stDestPath, vbNormalFocus)
        Call MsgBox("シャドウを起動させたので、このプロセスは終わらせる (ロックは解除される)")
    End Sub

    Public Sub CopyFile(ByVal stSourcePath As String, ByVal stDestPath As String, Optional ByVal bOverwrite As Boolean = True)
        Dim hFso As FileSystemObject
        Set hFso = New FileSystemObject
    
        Call hFso.CopyFile(stSourcePath, stDestPath, bOverwrite)
    End Sub

    Public Function CombinePath(ByVal stPath1 As String, ByVal stPath2 As String)
        If Right$(stPath1, 1) = "\" Then
            CombinePath = stPath1 & stPath2
        Else
            CombinePath = stPath1 & "\" & stPath2
        End If
    End Function

    Public Function GetTempPath() As String
        Dim hFso As FileSystemObject
        Set hFso = New FileSystemObject

        Dim hFolder As Folder
        Set hFolder = hFso.GetSpecialFolder(TemporaryFolder)
        Set hFso = Nothing

        GetTempPath = hFolder.Path
    End Function

Option Explicit

Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" _
   (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Public Sub Main()
    Dim strFileNameExisting   As String
    Dim strFileNameNew        As String
    Dim lngFailIfExists       As Long
    Dim lngWin32apiResultCode As Long

    strFileNameExisting = App.Path & "\\" & App.EXEName & ".exe"
    strFileNameNew = "C:\\" & App.EXEName & ".exe"
    lngFailIfExists = CLng(0)

    lngWin32apiResultCode = CopyFile(strFileNameExisting, strFileNameNew, lngFailIfExists)

End Sub