注册 登录
编程论坛 程序供求

如何用VB编程对指定文件夹下所有大小相差100字节的文件重命名?

kv48 发布于 2013-07-18 15:08, 2871 次点击

现在有一个文件夹为D:\flv\,内部有1000多个形如  01.flv,62.flv,96.flv,023.flv,653.flv......的文件(无规律),还有2000多个电影文件,形如:生活大爆炸.rmvb,致我们终将逝去的青春.rmvb,疯狂原始人.rmvb..........(无规律,程序要想办法取得文件名)。

例如:如果文件“生活大爆炸.rmvb"的文件大小减去“96.flv”的文件大小=100字节(536,866,300字节-536,866,200字节=100字节),那么将文件“96.flv”更名为“生活大爆炸.avi",并删除“生活大爆炸.rmvb"。

请朋友们写出具体程序,因为我初学,谢谢指导!

[ 本帖最后由 kv48 于 2013-7-18 15:10 编辑 ]
5 回复
#2
雨中楼2013-07-18 20:02
只留下flv的吗?
#3
lowxiong2013-07-19 10:28
楼主是需要别人为你写这个功能吗?如果是想学习,给你提供一段代码,望你能以此类推。
dim a as string,i as long
a=dim("*.rmvb")  '初始化访问的文件名
while a<>""
  i=filelen(a)   '获取文件长度
  a=dir          '获取下一个扩展名为rmvb的文件
wend
'该段代码可以遍历某一文件夹下的所有扩展名为rmvb的文件,并获取该文件长度。楼主可以用函数name对文件改名,用函数kill删除文件

[ 本帖最后由 lowxiong 于 2013-7-19 10:35 编辑 ]
#4
Artless2013-07-19 10:36
#5
kv482013-07-20 22:52
回复 3楼 lowxiong
主要是学习,别人能写这个功能就更好,因为我有3年没有写程序了。
怎样把每一个FLV文件和每一个RMVB文件进行比较大小,符合条件的就更名为AVI文件?(不要考虑更名后的文件能否播放,因为我只是为了说明方便)
#6
tzgy2013-08-24 18:52
回复 5楼 kv48
[code][/code]
1