文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

VB.NET如何批量重命名

2023-06-17 20:50

关注

这篇文章将为大家详细讲解有关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如何批量重命名修改”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,使各位可以学到更多知识,如果觉得文章不错,请把它分享出去让更多的人看到。

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-后端开发
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯