[Source]Sound Changer

To stop choobs leeching, I'm not showing how to use it.

If you do use it in any way then please credit me on the tool! Or I won't release source like this anymore.

Code:

Public Class Form1
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
            System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", System.IO.FileAttributes.Normal)
            Rename(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", TextBox1.Text + "\Game\BGM\BGM_LOOP_2.mp3")
            IO.File.Move(TextBox2.Text + TextBox3.Text, TextBox1.Text + "\Game\BGM\")
            Rename(TextBox1.Text + "\Game\BGM\" + TextBox2.Text, TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3")
        Else
            Label5.Text = "Status: BGM Failed!"
        End If
        Label5.Text = "Status: BGM Replaced!"

        If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
            System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\Map_Loading.mp3", System.IO.FileAttributes.Normal)
            Rename(TextBox1.Text + "\Game\BGM\Map_Loading.mp3", TextBox1.Text + "\Game\BGM\Map_Loading_2.mp3")
            IO.File.Move(TextBox4.Text + TextBox5.Text, TextBox1.Text + "\Game\BGM\")
            Rename(TextBox1.Text + "\Game\BGM\" + TextBox5.Text, TextBox1.Text + "\Game\BGM\Map_Loading.mp3")
        Else
            Label5.Text = "Status: Loading Failed!"
        End If
        Label5.Text = "Status: Loading Replaced!"

        If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
            System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3", System.IO.FileAttributes.Normal)
            Rename(TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3", TextBox1.Text + "\Game\BGM\QRT_Count_BGM_2.mp3")
            IO.File.Move(TextBox6.Text + TextBox7.Text, TextBox1.Text + "\Game\BGM\")
            Rename(TextBox1.Text + "\Game\BGM\" + TextBox7.Text, TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3")
        Else
            Label5.Text = "Status: BGM Failed!"
        End If
        Label5.Text = "Status: BGM Replaced!"
    End Sub
End Class

Easy to make into a program, lol, even for choobs. Good job :P.

If they can work VB they're only half-choob so this is what I've done.

I think this is for vb 2008 express..Right?

And i have another question why did you use label5 but not 1?When i read the code i have realised that xD

Yep, it's 08 Express. And it was Label5 because the other 4 were just info, like "Replacement:" and "CA folder:" so people know what the hell they're doing.

[Source]Sound Changer

Similar Threads

Tags for this Thread