批量更改文件名.docVIP

批量更改文件名 马致明 新疆师范大学数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() 添加常用的文件过滤类型 Combo1.AddItem *.* Combo1.AddItem *.jpg Combo1.AddItem *.bmp Combo1.AddItem *.mp3 Combo1.AddItem *.wav Combo1.AddItem *.doc Combo1.AddItem *.xls Combo1.AddItem *.txt Combo1.AddItem *.mpg Combo1.AddItem *.dat Combo1.AddItem *.avi Combo1.ListIndex = 0 默认类型为第1种(*.*) Combo1.ToolTipText = 输入并回车后添加新类型 End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path File1_PatternChange End Sub Private Sub File1_PatternChange() 将文件列表框的内容添加到列表框 List1.Clear For i = 0 To File1.ListCount - 1 List1.AddItem File1.List(i) Next i Label3 = 文件数： File1.ListCount End Sub Sub Combo1_KeyDown(KeyCode%, Shift%) If KeyCode = 13 Then 新增过滤条件并生效 Combo1.AddItem Combo1.Text Combo1.ListIndex = Combo1.ListCount - 1 End If End Sub Private Sub Combo1_Click() 设置过滤条件 File1.Pattern = Combo1.Text End Sub Sub List1_KeyDown(KeyCode%, Shift%) 对于不改名的文件，选中后用Del从列表中清除 If KeyCode vbKeyDelete Then Exit Sub Do While i List1.ListCount If List1.Selected(i) Then List1.RemoveItem i Else i = i + 1 End If Loop Label3 = 文件数： List1.ListCount End Sub Sub Option1_Click(Index%) 根据情况控制文本框的可用与否 Text1.Enabled = Option1(1).Value Label2.Enabled = Option1(1).Value End Sub Private Sub Command1_Click() 成批改文件名 Dim NewName$, Ext$, T$, S$, L%, i%, p% On Error GoTo Msg ChDrive Drive1.Drive ChDir Dir1.Path If Text1.Enabled Then T = Text1 文字内容 L = Len(CStr(List1.ListCount)) S = String(L, 0) 确定数字的位数 For i = 0 To List1.List