Public feed
#600581
'You will want to have a button, a microsoft.visualbasic.compatibility.fileListBox, and a ListBox on your form to execute this.
'Put the pastebin stuff from http://pastebin.ca/600195 in the ListBox items collection.
'Make sure the number of lines and filenames match up.
'the result is a BATCH file which you can save to your momo-i folder and run.
Public Class Form1
Dim vbQuot As Char = Chr(34)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileListBox1.FileName = "X:\mp3\Albums\momo-i - FAMISOM 8bit"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For x As Integer = 0 To FileListBox1.Items.Count - 1
TextBox1.Text &= vbCrLf & "ren " & vbQuot & FileListBox1.Items(x) & vbQuot & " " & vbQuot & "momo-i - " & ListBox1.Items(x) & ".mp3" & vbQuot
Next
End Sub
End Class