VB.NET如何批量重命名
這篇文章將為大家詳細(xì)講解有關(guān)VB.NET如何批量重命名修改，小編覺(jué)得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。
創(chuàng)新互聯(lián)自2013年起，是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站設(shè)計(jì)、做網(wǎng)站網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元寧河做網(wǎng)站,已為上家服務(wù),為寧河各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話(huà):18982081108
VB.NET批量重命名代碼實(shí)例，
Imports System.IO Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows 窗體設(shè)計(jì)器生成的代碼 " Public Sub New() MyBase.New() '該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。 InitializeComponent() '在 InitializeComponent() 調(diào)用之后添加任何初始化 End Sub '窗體重寫(xiě) 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è)計(jì)器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下過(guò)程是 Windows 窗體設(shè)計(jì)器所必需的 '可以使用 Windows 窗體設(shè)計(jì)器修改此過(guò)程。 '不要使用代碼編輯器修改它。 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 = "目標(biāo)文件夾..." ' '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 = "新增文件類(lèi)型" ' '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 = "要操作的文件類(lèi)型" ' '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 = "完成后打開(kāi)文件夾" ' '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("文件類(lèi)型錯(cuò)誤") ' 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ù)制到臨時(shí)目錄。。。" 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ù)制到臨時(shí)目錄完成" Me.Label2.Text = "正在刪除臨時(shí)文件。。。" 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("請(qǐng)選擇設(shè)置操作路徑和要文件類(lèi)型") 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關(guān)于“VB.NET如何批量重命名修改”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，使各位可以學(xué)到更多知識(shí)，如果覺(jué)得文章不錯(cuò)，請(qǐng)把它分享出去讓更多的人看到。
新聞名稱(chēng)：VB.NET如何批量重命名
轉(zhuǎn)載注明：http://muchs.cn/article12/gesggc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站制作、網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)站營(yíng)銷(xiāo)、服務(wù)器托管
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀(guān)點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)
