I checked MSDN today, I made a simple bulk file reamerled program!

Oh, interesting! Imports system.ionamespace xyn.xyn public class mainbase inherits system.windows.Forms.form

#Region "Windows Form Designer Generated Code"

Public Sub new () mybase.new ()

'This call is required for the Windows Form Designer. InitializeComponent ()

'Add any initialization after INITIALIZECOMPONENT ()

End Sub

'Form rewriting Dispose to clean up the list of components. Protected overloads overrides sub dispose (byval disposing as boolean) ing disponation kiln (Components Is Nothing) Then components.dispose () end if endiffs) End sub

'Windows Form Designer Supply Private Components as System.comPonentModel.icontainer

'Note: The following procedure is necessary to use the Windows Form Designer to modify this process using the Windows Form Designer. 'Don't modify it using the code editor.

Friend WithEvents MyFolderBrowserDialog As System.Windows.Forms.FolderBrowserDialog Friend WithEvents MyButton As System.Windows.Forms.Button Friend WithEvents MyTextBox As System.Windows.Forms.TextBox Friend WithEvents PathBox As System.Windows.Forms.TextBox Friend WithEvents Submit As System. Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Private Sub InitializeComponent () Me.MyFolderBrowserDialog = New System.Windows. Forms.FolderBrowserDialog Me.MyButton = New System.Windows.Forms.Button Me.MyTextBox = New System.Windows.Forms.TextBox Me.PathBox = New System.Windows.Forms.TextBox Me.Submit = New System.Windows.Forms. Button me.label1 = new system.windows.Forms.Label me.label2 = new system.windows.Forms.Label me.suspendlayout () '' Mybutton 'me.mybutton.location = new system.drawing.point (257, 57) me.mybutton.name = "mybutton" me.mybutton.size = new system.drawing.size (104, 21) Me.Mybutton .Tabindex = 0 me.mybutton.text = "Select" '' mytextbox 'me.mytextbox.location = new system.drawing.point (119, 112) me.mytextbox.name = "MyTextBox" me.mytextbox.size = new System.drawing.size (104, 21) me.mytextbox.tabindex = 1 me.mytextbox.text = ""

'Pathbox' me.pathbox.location = new system.drawing.point (121, 57) me.pathbox.name = "pathbox" me.pathbox.readonly = true me.pathbox.size = new system.drawing.size (104 , 21) Me.Pathbox.Tabindex = 2 me.pathbox.text = "" 'Submit' me.submit.location = new system.drawing.point (255, 111) me.submit.name = "submit" me. Submit.Size = new system.drawing.size (104, 21) me.submit.tabindex = 3 me.submit.text = "OK" '' Label1 'me.label1.location = new system.drawing.point (33, 57) Me.Label1.name = "label1" me.label1.size = new system.drawing.size (64, 18) me.label1.tabindex = 4 me.label1.text = "Select Path" me.label1.textalign = System.drawing.contentAlignment.middleright '' Label2 'me.label2.location = New System.drawing.Point (31, 111) Me.Label2.name = "label2" me.label2.size = new system.drawing.size (72, 18) Me.Label2.TabINDEX = 5 me.label2.text = "Start file name" me.label2.textalign = system.drawing.contentalignment.middleright '' mainbase 'me.autoscalebasesize = new system.drawing.size (6, 14) me.clientsize =

New system.drawing.size (392, 190) me.controls.add (me.label2) me.controls.add (me.label1) me.controls.add (me.submit) Me.Controls.add (me.pathbox ) Me.mytextbox) me.controls.add (me.mybutton) me.name = "Mainbase" me.text = "Batch file named" me.ResumeLayout (false) end SUB

#End Region Private Sub MyButton_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyButton.Click Try MyFolderBrowserDialog = New FolderBrowserDialog MyFolderBrowserDialog.ShowDialog () PathBox.Text = MyFolderBrowserDialog.SelectedPath Catch ex As Exception End Try End Sub