[VisualBasic] Conversor de Vídeos

FERRAMENTAS DO PROJETO:


2 Butões:
Button1 - Selecione um video
Button2 - Converter

1 TextBox.

1 OpenFileDialog.

1 ComboBox:
.avi
.mpg
.mp4
.wmv
.mov
.divx
.ram
.mkv
.flv
.3gp
.swf

CÓDIGOS:

Button1 (Selecione um Video):

Código:

OpenFileDialog1.Filter = "Videos | *.avi; *.mpg; *.mp4; *.wmv; *.mov; *.divx; *.ram; *.mkv; *.flv; *.3gp; *.swf;"
        OpenFileDialog1.ShowDialog()

Button2 (Converter):

Código:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim type As String = ComboBox1.Text
        If ComboBox1.Text = "" Then
            MsgBox("Nenhum tipo de arquivo selecionado")
        Else
        End If
        MsgBox(TextBox1.Text + " Arquivo convertido para " + type + " com sucesso")
        Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
        FileCopy(TextBox1.Text, oldFile + type)
    End Sub

OpenFileDialog:

Código:

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim file As String = OpenFileDialog1.FileName
        TextBox1.Text = file
    End Sub