现在有一个文件夹为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 编辑 ]

只留下flv的吗？

楼主是需要别人为你写这个功能吗？如果是想学习，给你提供一段代码，望你能以此类推。
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 编辑 ]

https://bbs.bccn.net/thread-332242-1-1.html

主要是学习，别人能写这个功能就更好，因为我有3年没有写程序了。
怎样把每一个FLV文件和每一个RMVB文件进行比较大小，符合条件的就更名为AVI文件？（不要考虑更名后的文件能否播放，因为我只是为了说明方便）

[code][/code]