VB.NET如何批量重命名

這篇文章將為大家詳細講解有關VB.NET如何批量重命名修改，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

VB.NET批量重命名代碼實例，

Imports System.IO  Public Class Form1  Inherits System.Windows.Forms.Form  #Region " Windows 窗體設計器生成的代碼 "  Public Sub New()  MyBase.New()  '該調用是 Windows 窗體設計器所必需的。  InitializeComponent()  '在 InitializeComponent() 調用之后添加任何初始化  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 窗體設計器所必需的  Private components As System.ComponentModel.IContainer  '注意: 以下過程是 Windows 窗體設計器所必需的  '可以使用 Windows 窗體設計器修改此過程。  '不要使用代碼編輯器修改它。  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 = "執行" '  '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 = "狀態" '  '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 = "正在復制到臨時目錄。。。" 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 = "復制到臨時目錄完成" 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("請選擇設置操作路徑和要文件類型")  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如何批量重命名修改”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。