學(xué)習(xí)VB.NET編程的都知道重命名的問題，隨著我在工作中的積累，對VB.NET批量重命名的代碼編輯上做了一些總結(jié)，下面給大家列舉一個VB.NET批量重命名代碼實例，希望可以給大家?guī)韼椭?/P>

Imports System.IO  
Public Class Form1  
Inherits System.Windows.Forms.Form  
#Region " Windows 窗體設(shè)計器生成的代碼 "  
Public Sub New()  
MyBase.New()  
'該調(diào)用是 Windows 窗體設(shè)計器所必需的。  
InitializeComponent()  
'在 InitializeComponent() 調(diào)用之后添加任何初始化  
End Sub  
'窗體重寫 dispose 以清理組件列表。  
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)  
If disposing Then  
If Not (components Is Nothing) Then  
components.Dispose()  
End If  
End If  
MyBase.Dispose(disposing)  
End Sub  
'Windows 窗體設(shè)計器所必需的  
Private components As System.ComponentModel.IContainer  
'注意: 以下過程是 Windows 窗體設(shè)計器所必需的  
'可以使用 Windows 窗體設(shè)計器修改此過程。  
'不要使用代碼編輯器修改它。  
Friend WithEvents Button1 As System.Windows.Forms.Button  
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox  
Friend WithEvents Button2 As System.Windows.Forms.Button  
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox  
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox  
Friend WithEvents Button3 As System.Windows.Forms.Button  
Friend WithEvents Label1 As System.Windows.Forms.Label  
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar  
Friend WithEvents Label2 As System.Windows.Forms.Label  
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox  
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu  
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel  
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()  
Me.Button1 = New System.Windows.Forms.Button  
Me.TextBox1 = New System.Windows.Forms.TextBox  
Me.Button2 = New System.Windows.Forms.Button  
Me.ComboBox1 = New System.Windows.Forms.ComboBox  
Me.TextBox2 = New System.Windows.Forms.TextBox  
Me.Button3 = New System.Windows.Forms.Button  
Me.Label1 = New System.Windows.Forms.Label  
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar  
Me.Label2 = New System.Windows.Forms.Label  
Me.CheckBox1 = New System.Windows.Forms.CheckBox  
Me.MainMenu1 = New System.Windows.Forms.MainMenu  
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel  
Me.SuspendLayout()  
'  
'Button1  
'  
Me.Button1.Location = New System.Drawing.Point(288, 120)  
Me.Button1.Name = "Button1" 
Me.Button1.Size = New System.Drawing.Size(112, 32)  
Me.Button1.TabIndex = 0 
Me.Button1.Text = "執(zhí)行" 
'  
'TextBox1  
'  
Me.TextBox1.Location = New System.Drawing.Point(32, 40)  
Me.TextBox1.Name = "TextBox1" 
Me.TextBox1.Size = New System.Drawing.Size(272, 21)  
Me.TextBox1.TabIndex = 1  
Me.TextBox1.Text = "TextBox1" 
'  
'Button2  
'  
Me.Button2.Location = New System.Drawing.Point(336, 40)  
Me.Button2.Name = "Button2" 
Me.Button2.Size = New System.Drawing.Size(104, 23)  
Me.Button2.TabIndex = 2  
Me.Button2.Text = "目標文件夾..." 
'  
'ComboBox1  
'  
Me.ComboBox1.Location = New System.Drawing.Point(168, 88)  
Me.ComboBox1.Name = "ComboBox1" 
Me.ComboBox1.Size = New System.Drawing.Size(80, 20)  
Me.ComboBox1.TabIndex = 3 
Me.ComboBox1.Text = "ComboBox1" 
'  
'TextBox2  
'  
Me.TextBox2.Location = New System.Drawing.Point(168, 128)  
Me.TextBox2.Name = "TextBox2" 
Me.TextBox2.Size = New System.Drawing.Size(80, 21)  
Me.TextBox2.TabIndex = 4 
Me.TextBox2.Text = "" 
'  
'Button3  
'  
Me.Button3.Location = New System.Drawing.Point(40, 128)  
Me.Button3.Name = "Button3" 
Me.Button3.Size = New System.Drawing.Size(80, 23)  
Me.Button3.TabIndex = 5 
Me.Button3.Text = "新增文件類型" 
'  
'Label1  
'  
Me.Label1.Location = New System.Drawing.Point(40, 88)  
Me.Label1.Name = "Label1" 
Me.Label1.Size = New System.Drawing.Size(104, 23)  
Me.Label1.TabIndex = 6 
Me.Label1.Text = "要操作的文件類型" 
'  
'ProgressBar1  
'  
Me.ProgressBar1.Location = New System.Drawing.Point(40, 168)  
Me.ProgressBar1.Name = "ProgressBar1" 
Me.ProgressBar1.Size = New System.Drawing.Size(352, 16)  
Me.ProgressBar1.TabIndex = 7 
'  
'Label2  
'  
Me.Label2.Location = New System.Drawing.Point(32, 192)  
Me.Label2.Name = "Label2" 
Me.Label2.Size = New System.Drawing.Size(240, 24)  
Me.Label2.TabIndex = 8 
Me.Label2.Text = "狀態(tài)" 
'  
'CheckBox1  
'  
Me.CheckBox1.Location = New System.Drawing.Point(304, 80)  
Me.CheckBox1.Name = "CheckBox1" 
Me.CheckBox1.Size = New System.Drawing.Size(136, 24)  
Me.CheckBox1.TabIndex = 9 
Me.CheckBox1.Text = "完成后打開文件夾" 
'  
'LinkLabel1  
'  
Me.LinkLabel1.Location = New System.Drawing.Point(296, 200)  
Me.LinkLabel1.Name = "LinkLabel1" 
Me.LinkLabel1.Size = New System.Drawing.Size(144, 23)  
Me.LinkLabel1.TabIndex = 10 
Me.LinkLabel1.TabStop = True 
Me.LinkLabel1.Text = "http://www.wgscd.com" 
'  
'Form1  
'  
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)  
Me.ClientSize = New System.Drawing.Size(464, 238)  
Me.Controls.Add(Me.LinkLabel1)  
Me.Controls.Add(Me.CheckBox1)  
Me.Controls.Add(Me.Label2)  
Me.Controls.Add(Me.ProgressBar1)  
Me.Controls.Add(Me.Label1)  
Me.Controls.Add(Me.Button3)  
Me.Controls.Add(Me.TextBox2)  
Me.Controls.Add(Me.ComboBox1)  
Me.Controls.Add(Me.Button2)  
Me.Controls.Add(Me.TextBox1)  
Me.Controls.Add(Me.Button1)  
MeMe.Menu = Me.MainMenu1  
Me.Name = "Form1" 
Me.Text = "批量重命名 wgscd 2005" 
Me.ResumeLayout(False)  
End Sub  
#End Region  
Dim Path As String = "" 
Dim Filter As String = "*.*" 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
Filter = Me.ComboBox1.SelectedItem  
Dim dir As DirectoryInfo  
Path = Me.TextBox1.Text  
If Path <> "" AndAlso Me.ComboBox1.Text <> "" Then  
' If Me.TextBox1.Text.Trim.Length > 6 Then  
'  MsgBox("文件類型錯誤")  
'  Exit Sub  
'  End If  
Dim D As New DirectoryInfo("Temp")  
If D.Exists = False Then  
D.Create()  
End If  
dir = New DirectoryInfo(Me.TextBox1.Text)  
Dim lenth As Integer = dir.GetFiles(Filter).Length  
If lenth > 0 Then  
Me.ProgressBar1.Value = 0 
Me.ProgressBar1.Maximum = lenth + 1  
Me.Label2.Text = "正在復(fù)制到臨時目錄。。。" 
Dim fi As FileInfo  
Dim i As Integer = 1 
For Each fi In dir.GetFiles(Filter)  
Dim Temp As String = fi.Name  
Dim Extention As String = fi.Extension  
fi.CopyTo("Temp\" & i & Extention, True)  
fi.Delete()  
i += 1  
Me.ProgressBar1.Value = i 
Next  
Me.ProgressBar1.Value = 0 
Me.Label2.Text = "復(fù)制到臨時目錄完成" 
Me.Label2.Text = "正在刪除臨時文件。。。" 
dir = New DirectoryInfo("Temp")  
If dir.GetFiles(Filter).Length Then  
Dim fi2 As FileInfo  
Dim j As Integer = 1 
For Each fi2 In dir.GetFiles(Filter)  
Dim Temp As String = fi2.Name  
Dim Extention As String = fi2.Extension  
fi2.CopyTo(Path & "\" & j & Extention, True)  
fi2.Delete()  
j += 1  
Me.ProgressBar1.Value = j 
Next  
Me.Label2.Text = "處理完成" 
If Me.CheckBox1.Checked Then  
Dim p As New Process  
p.Start(Path)  
End If  
End If  
Else : Exit Sub  
End If  
Else  
MsgBox("請選擇設(shè)置操作路徑和要文件類型")  
End If  
End Sub  
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
Me.TextBox1.Text = System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)  
Me.ComboBox1.Items.AddRange(New String() {"*.*", "*.jpg", ".gif", "*.bmp", "*.tif", "*.png", "*.html", "*.htm", "*.asp", "*.aspx"})  
ComboBox1.SelectedIndex = 1  
TextBox2.Text = "例如*.jsp" 
End Sub  
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
If TextBox2.Text <> "" Then  
If Me.TextBox2.Text.Trim Like "*.*" Then  
Me.ComboBox1.Items.Add(TextBox2.Text.Trim)  
MeMe.ComboBox1.SelectedIndex = Me.ComboBox1.Items.Count - 1  
End If  
End If  
End Sub  
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
Dim ofd As New FolderBrowserDialog  
If ofd.ShowDialog = DialogResult.OK Then  
Me.TextBox1.Text = ofd.SelectedPath  
End If  
End Sub  
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked  
Dim p As New Process  
p.Start(Me.LinkLabel1.Text)  
End Sub  
End Class 

以上就是VB.NET批量重命名處理，大家試試吧！

【編輯推薦】

1. 程序員必看VB.NET CASE語句拓展篇
2. 深入介紹VB.NET類庫 SmartRWLocker技巧
3. VB.NET復(fù)制讀取音頻文件到剪貼板小技巧
4. 深入概括VB.NET運行環(huán)境
5. 快速使用VB.NET搜索程序?qū)嵗?/FONT>