您的位置：程序门 -> vb -> 基础类

如何用vb批量给文件重命名??

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何用vb批量给文件重命名??

发表于：2007-03-16 11:16:30 楼主

如题

发表于：2007-03-16 14:25:271楼得分:0

把要求写清楚吧

发表于：2007-03-16 15:06:022楼得分:0

for i =0 to ..
name ...as
next i

发表于：2007-03-16 17:05:403楼得分:0

fso 遍力磁盘问见

发表于：2007-03-17 19:32:194楼得分:0

这个题目我做了一些小的研究，下面是我的代码：批量重命名文件
窗体控件：
drivelistbox
dirlistbox
filelistbox
text1box
text2box
text3box
combobox
command1　（确定）
command2 （退出）

label1.caption=选中目录
label2.caption=新文件名
label3.caption=扩展名
'=========================
代码内容

private sub combo1_click（)
text3.text = combo1.list（combo1.listindex)
text3.refresh
end sub

private sub form_load（) '选择默认路径
dim nn as string '将扩展名存为变量调用
nn = "*. " & text3.text
dir1.path = app.path & "\ml "
file1.pattern = nn
file1.path = dir1.path
text2.text = file1.path
end sub

private sub drive1_change（) '选择驱动器
dir1.path = drive1.drive
end sub

private sub dir1_change（) '选择文件夹
file1.path = dir1.path
text2.text = file1.path
end sub

private sub file1_click（)
text2.text = file1.path & "\ " & file1.filename
end sub

private sub command1_click（) '批量重命名文件
dim tt as string
dim dd as string
for i = o to file1.listcount - 1
file1.listindex = i
dd = file1.path & "\ " & file1.filename
tt = file1.path & "\ " & text1.text & i & ". " & text3.text
name dd as tt '重命名文件
next i
file1.refresh
end sub
private sub command2_click（)
end
end sub
private sub command3_click（)
nn = "*. " & combo1.list（combo1.listindex)
file1.pattern = nn
file1.refresh
end sub

发表于：2007-03-17 19:36:045楼得分:0

根目录下要有个ml目录
combo1控制的list属性，加上几个后缀，比如*.* jpg bmp....

发表于：2007-03-17 19:47:346楼得分:0

再补充一下：
command3是个刷新按钮
combo1的style属性　改为2

记得给分～

下一篇：vb如何实现多机通信？
上一篇：vb 如何用movenext显示下条记录

相关文章

其他资讯

快速检索

分类导航标签a

最新资讯

热门点击