批量更改文件名

批量更改文件名

马致明

新疆师范大学数理信息学院,新疆 乌鲁木齐 830054

摘要:本文介绍了一款小型的实用工具软件:“批量更改文件名”的开发过程,并对程序的功能及算法做了详尽的描述。

关键字:VB、文件名、批量更改

1 问题的提出

多媒体时代的计算机,信息充实而生动。在我们体验空前的视听享受的同时,也为大量零乱的文件名而苦恼!用数码照相机拍摄的大量照片,虽然照相机内部可以对文件名自动编号,但格式过于单一,不能按我们期望的方式生成文件名,如天山风景1、天山风景2等等;况且,当我们删除一些照片时,文件名的编号就出现不连续的现象。此外,从网上或光盘上获取的各类素材文件,其名称也是乱七八糟!如果想将这些文件名按自己的要求统一进行编号,只得一一更名。相信没有一位用户能有这么好的耐心去为成百上千的文件一一点名道姓! 笔者在忍无可忍的情况下,用VB6.0开发了一款小型工具软件来完成此重任,既简单又实用。现将其介绍给大家,希望也能给你的操作带来方便!

2 软件的功能

软件启动后,先选择要更名的文件,文件的类型可以从列表中选择,也可以自己输入(如A*.jpg等);之后列表框中呈现出要更名的文件名称。当然,如果列表框中的某些文件不想更名,选中后用Del健可以从列表中清除(原文件不会被删除!)。然后选择更名的方式:“纯数字”或“文字+数字”;若选择“纯数字”选项并单击“改名”按钮,则将列表框中的所有文件的基本名按阿拉伯数字从小到大的顺序更改,更改后的文件名的字符个数是相同的,如:列表框中若有125个文件,则文件名从001、002到125,这样就避免了按文件名排列图标时11号文件插在1号文件和2号文件之间的麻烦。若选择“文字+数字”选项,则先让用户输入文字内容(如喀纳斯风景),当单击“改名”按钮后,则文件名按喀纳斯风景001、喀纳斯风景002等方式更改。

本程序效率很高,数千个文件会在瞬间完成更名;此外,程序对无效的文件名、已存在的文件名均有保护措施!

3 程序实现

3.1 关键算法

通过文件系列控件把要更名的文件显示在列表框中,然后根据列表框中文件的个数决定数字的位数;进入循环后,就列表中的每一个文件取出其扩展名,用“Name 旧文件名 As 新文件名”语句一一进行更名即可。值得一提的是,由于文件列表框中显示的项目不能用有关的方法单个删除,所有本程序中同时用到了文件列表框和列表框:将文件列表框隐藏,其内容转移到列表框中,这样列表框就担当起了文件列表框的作用,同时还具备了删除项目的功能。

3.2 界面设计

在窗体中添加两个框架,将Frame1的标题改为“请选择文件”、Frame2的标题改为“文件名改成”;在Frame1中添加控件:Drive1、Dir1、File1(Visible为False)、List1、Combo1、Label1(标题为“文件类型:“)和Label2(标题为“文件个数“)。在Frame2中添加Command1(标题为改名)、Label1(标题为“文字内容”)、Text1、Option1(0)(标题为“纯数字”)和Option1(1)(标题为“文字+数字”)。

3.3 编写代码

Private Sub Form_Load()

'添加常用的文件过滤类型

你可能喜欢

  • 文件更改审批表
  • 文件批量改名
  • 文件批量重命名
  • 批量导出文件名
  • 批量提取文件名
  • 批量修改文件名
  • 批量文件名

批量更改文件名相关文档

最新文档

返回顶部