Make a Video Converter

This is ONLY codes + a video at the end.

CREDITS:
Nicho1995W

Button 1 (The open file button)

Code:

OpenFileDialog1.showdialog()

Button2 (The convert button)

Code:

Dim type As String = ComboBox1.Text
        If ComboBox1.Text = "" Then
            MsgBox("No file type selected")
        Else
        End If
        MsgBox(TextBox1.Text + " shall be converted into a " + type + " file.")
        Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
        FileCopy(TextBox1.Text, oldFile + type)

OpenFileDialog1:

Code:

Dim file As String = OpenFileDialog1.FileName
        TextBox1.Text = file

Video:
[YOUTUBE]<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/n_qX6xRtOlU&hl=en_US&fs=1&"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/n_qX6xRtOlU&hl=en_US&fs=1&" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="425" height="344"></embed></object>[/YOUTUBE]

I want this

Arnt video converters a LOT more complicated? I dont think changing the File Ext will work. Also, grats on VB minion

Originally Posted by Iamazn1

Arnt video converters a LOT more complicated? I dont think changing the File Ext will work. Also, grats on VB minion

Thanks, and it works, but for only like 2 types

Not to sound rude, but.....Anyone who believes this actually converts a video is on crack...

All it does is change the file extension which windows uses to show a different icon. Most players support multiple formats to begin with and parse it based on the file contents and not the file extension so it may 'appear' to work, but this code does absolutely nothing useful.

Originally Posted by PixieCorp

This is ONLY codes + a video at the end.

Button 1 (The open file button)

Code:

OpenFileDialog1.showdialog()

Button2 (The convert button)

Code:

Dim type As String = ComboBox1.Text
        If ComboBox1.Text = "" Then
            MsgBox("No file type selected")
        Else
        End If
        MsgBox(TextBox1.Text + " shall be converted into a " + type + " file.")
        Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
        FileCopy(TextBox1.Text, oldFile + type)

OpenFileDialog1:

Code:

Dim file As String = OpenFileDialog1.FileName
        TextBox1.Text = file

Thanks, works but for only 2formats ( i think)

Originally Posted by B1ackAnge1

Not to sound rude, but.....Anyone who believes this actually converts a video is on crack...

I know, but some people may be able to edit the code

u shud give creits to the video maker

Are you serious? (not to sound condescending)

yes he is seroius lol

offtopic: everyone chillz

Ontopic: thank you for posting this, may come in handy later, also its possible i could edit the code O.o

Offtopic again: I knew pixiecorp would win ^.^ never had a chance to say that

Not to be rude, but how the f*ck did you get mignion? o__O

Originally Posted by Hell_Demon

Not to be rude, but how the f*ck did you get mignion? o__O

not to be rude but your an asshole

Originally Posted by stevethehacker

not to be rude but your an asshole

Thanks, but if you're unable to see that this is NOT a video converter you must have a mental handicap...

Originally Posted by Hell_Demon

Thanks, but if you're unable to see that this is NOT a video converter you must have a mental handicap...

Don't flame and don't spam.
It's a rule.

And this is just something I found on youtube, so

Make a Video Converter

Post a Reply

Similar Threads

Tags for this Thread