学习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批量重命名处理,大家试试吧!
【编辑推荐】