批量重命名

最新推荐文章于 2025-05-12 23:53:20 发布
原创 最新推荐文章于 2025-05-12 23:53:20 发布 · 379 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#textbox #button #filter #string #integer #windows

 
Imports System.IO

Public Class Form1
    Inherits System.Windows.Forms.Form

Windows 窗体设计器生成的代码
    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)
                Me.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
python 实现文件批量重命名
道亦无名
05-11 245
以下是使用Python实现文件批量重命名的示例代码。可以根据自己的需求修改新文件名的生成逻辑，例如按照时间、自定义前缀等规则进行重命名。
Python实现文件批量重命名
Mr数据杨
01-14 1万+
通过Python实现文件批量重命名，可以在数据整理、文件归档、项目管理等方面大大提高效率。本教程介绍了Python批量重命名的基本方法，并提供了工作与生活中的实际应用示例，帮助理解不同场景下的应用。此外，异常处理与注意事项的讲解为代码稳定性提供了保障。掌握这些知识，能够更灵活地完成文件批量操作，提升自动化程度，进而优化日常工作流程。
两种方法实现Windows系统下批量重命名文件
热门推荐
一起加油~
07-23 16万+
两种方法实现Windows系统下的批量重命名任务，一看就懂！
批量重命名bat
最新发布
Dust的博客
05-12 545
这篇文章介绍了一个用于批量重命名文件的Windows批处理脚本（.bat文件）。该脚本的主要功能是去除当前目录下所有文件名中的括号和空格，使文件名更加简洁。脚本通过遍历目录中的每个文件，使用字符串替换操作去除文件名中的“（”、“）”和空格，然后重命名文件。使用方法简单，只需双击bat文件即可自动执行。文章还附有代码示例和操作效果图，方便读者理解和使用。最后，作者鼓励读者如果觉得有用可以点赞支持。
shell批量重命名
dzning123的专栏
11-14 336
注意以下两种方法都有自己的不足之处，但可以满足一些简单的场景。
常用的批量重命名工具
谷哥的小弟
03-27 3322
批量重命名工具是一种软件工具，可以帮助用户批量修改文件和文件夹的名称。这些工具通常提供多种重命名选项，如添加前缀、后缀、删除、替换等，可以快速地重命名多个文件或文件夹，从而提高工作效率。 批量重命名工具通常可以处理各种类型的文件，包括文本文件、图像文件、音频文件、视频文件等。用户可以根据需要选择适当的重命名选项，并预览修改后的文件名，以确保重命名操作正确无误。 批量重命名工具是在处理大量文件时非常有用的工具，可以节省用户大量的时间和精力。无论您是需要对数百个照片或数千个文档进行重命名，批量重命名工具都可
文件批量重命名工具
辣香牛肉面的博客
05-08 344
参考原文：文件批量重命名-ReNamerPro_7.7.0.2Beta汉化优化版轻轻一点就关注, 好运连连挡不住，点个关注吧。
文件夹下图片批量重命名
学海无涯
08-09 915
文件夹下图片批量重命名
Python批量重命名文件
马上到我碗里来的博客
01-31 717
因为文件夹中有几百首歌曲需要进行整理，但是因为之前的分类和命名有些混乱，所以想用python进行批量修改。模块来实现对Windows下某一路径下所有文件的重命名。那么话不多说，Show the code。函数接受一个路径作为参数，然后遍历该路径下的所有文件，对每个文件进行重命名操作。本文只是给大家提供一个思路，具体根据自己的需要对代码进行修改即可。目的：用python来批量重命名文件。主要思路还是用Python中的。替换为你要操作的实际路径。
bat完成文件批量重命名
qq_43844285的博客
12-16 4873
利用批处理语言完成windows中文件批量重命名，目前支持的功能包括添加前缀、删除指定长度字符和序列化生成名称
文件批量重命名_按键精灵文件批量重命名_
10-02
"文件批量重命名"是一个常见的需求，尤其对于开发者、数据分析师或是任何需要整理大量文件的用户来说。在这个场景下，"按键精灵"是一个非常实用的工具，它允许用户通过编写脚本来自动化重复性的计算机操作，包括文件...
批量重命名图片名123……bat文件
04-21
要批量重命名图片，你可以使用Windows批处理（.bat）文件。下面是一个简单的示例，它将当前目录下的所有.jpg图片重命名为1.jpg、2.jpg、3.jpg等。 打开文本编辑器（如记事本）。 复制并粘贴以下代码： batch @echo ...
文件批量重命名工具.zip
07-17
"文件批量重命名工具"就是为了高效解决这一问题而设计的软件。本文将详细介绍这类工具的功能、使用场景及金舟文件批量重命名软件的特性。 批量重命名工具是针对Windows操作系统的一种实用程序，它允许用户一次性对...
优速文件批量重命名，批量修改文件创建时间，编辑时间
07-11
批量重命名你的文件夹，让你的文件夹按照统一的命名方式排序！ 如果能帮助到你，请点赞收藏哦！ 工具软件下载地址：https://download.yososoft.com/YSRename/2.0.4/YSRename.exe 1、软件下载，双击软件包，然后...
批量重命名/易语言制作的文件批量重命名工具源码+模块
11-07
【功能非常强大】易语言批量重命名/制作的文件批量重命名工具源码+模块 效果截图https://www.vbjcw.cn/1329.html 批量重命名文件，易语言制作的文件批量重命名工具源码，非常强大！ 全部是易语言基础命令，配合了...
DATALIST分页---常用
07-20 2615
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init        CODEGEN: 此方法调用是 Web 窗体设计器所必需的        不要使用代码编辑器修改它。        InitializeComp
阴历与阳历转换
07-06 1034
下面是一个关于VB的农历算法 日期数据定义方法如下 前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天；  第13位为闰月的情况，1为大月30天，0为小月29天； 第14位为闰月的月份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制； 最后4位为当年家农历新年-即农历1月1日所在公历的日期，如0131代表
几个遍历文件夹的例子
07-09 783
一、使用SPFolderCollection以及SPFolder对象分层次显示文档列表Shaerpoint的文档库的功能很强大，显示文档列表的方式也很多，我们可以使用系统的视图显示文档，我们也可以定义视图来显示文档列表。在系统提供的视图中您可以选择是否显示文件夹。但是，我们有时候希望向察看本地资源管理器那样的分层查看文档列表，即展现出文档以及文档夹之间的层次关系。我这里介绍使用SPFolder
视频生成缩略图如何实现
07-07 745
Imports System.DrawingImports System.IO Public Class admin_upimgClass admin_upimg    Inherits Web.PageBase    Protected WithEvents Btnup As System.Web.UI.WebControls.Button    Protected WithEvents u
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值