Public feed #600581

quick VBE replace

public text v1 · immutable
Raw Edit
·published 2007-07-02 23:22 UTC
rendered paste body
'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