Tutoriel [VB.NET] Source - File Cloner

[Kilo-25]

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.DefaultExt = "exe"
        OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
        OpenFileDialog1.FilterIndex = 1
        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
            TextBox1.Text = String.Empty
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        OpenFileDialog2.DefaultExt = "exe"
        OpenFileDialog2.Filter = "exe files (*.exe)|*.exe"
        OpenFileDialog2.FilterIndex = 1
        If OpenFileDialog2.ShowDialog(Me) = DialogResult.OK Then
            TextBox2.Text = String.Empty
            TextBox2.Text = OpenFileDialog2.FileName
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Call CloneIt(TextBox1.Text)
        MsgBox("C'est fait !", MsgBoxStyle.Information, "Succès")
    End Sub

    Private Sub CloneIt(ByVal SourceFile As String)
        Shell(dossierprgm() & "res\\res.exe -extract " & TextBox1.Text & "," & dossierprgm() & "res\\info.res" & ",VERSIONINFO,,")
        Shell(dossierprgm() & "res\\res.exe -delete " & TextBox2.Text & "," & dossierprgm() & "res\\res.exe" & ",VERSIONINFO,,")
        Shell(dossierprgm() & "res\\res.exe -addoverwrite " & TextBox2.Text & "," & TextBox2.Text & "," & dossierprgm() & "res\\info.res" & ",VERSIONINFO,1,")
    End Sub

    Public Function dossierprgm() As String
        Return System.AppDomain.CurrentDomain.BaseDirectory()
    End Function
End Class

 

[RoRoH_AR]

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.DefaultExt = "exe"
        OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
        OpenFileDialog1.FilterIndex = 1
        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
            TextBox1.Text = String.Empty
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        OpenFileDialog2.DefaultExt = "exe"
        OpenFileDialog2.Filter = "exe files (*.exe)|*.exe"
        OpenFileDialog2.FilterIndex = 1
        If OpenFileDialog2.ShowDialog(Me) = DialogResult.OK Then
            TextBox2.Text = String.Empty
            TextBox2.Text = OpenFileDialog2.FileName
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Call CloneIt(TextBox1.Text)
        MsgBox("C'est fait !", MsgBoxStyle.Information, "Succès")
    End Sub

    Private Sub CloneIt(ByVal SourceFile As String)
        Shell(dossierprgm() & "res\\res.exe -extract " & TextBox1.Text & "," & dossierprgm() & "res\\info.res" & ",VERSIONINFO,,")
        Shell(dossierprgm() & "res\\res.exe -delete " & TextBox2.Text & "," & dossierprgm() & "res\\res.exe" & ",VERSIONINFO,,")
        Shell(dossierprgm() & "res\\res.exe -addoverwrite " & TextBox2.Text & "," & TextBox2.Text & "," & dossierprgm() & "res\\info.res" & ",VERSIONINFO,1,")
    End Sub

    Public Function dossierprgm() As String
        Return System.AppDomain.CurrentDomain.BaseDirectory()
    End Function
End Class

Ca peut tjr servir ;)