| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2871 人关注过本帖
标题:如何用VB编程对指定文件夹下所有大小相差100字节的文件重命名?
只看楼主 加入收藏
kv48
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-7-17
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:5 
如何用VB编程对指定文件夹下所有大小相差100字节的文件重命名?

现在有一个文件夹为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 编辑 ]
搜索更多相关主题的帖子: 命名 朋友 原始人 文件夹 生活大爆炸 
2013-07-18 15:08
雨中楼
Rank: 2
等 级:论坛游民
帖 子:51
专家分:40
注 册:2009-2-21
收藏
得分:7 
只留下flv的吗?

有些事情淡淡的就好,不须太在意,就像雨中的楼阁,有种淡淡的,模糊不清的之美意!
2013-07-18 20:02
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:7 
楼主是需要别人为你写这个功能吗?如果是想学习,给你提供一段代码,望你能以此类推。
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 编辑 ]
2013-07-19 10:28
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:7 

无知
2013-07-19 10:36
kv48
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-7-17
收藏
得分:0 
回复 3楼 lowxiong
主要是学习,别人能写这个功能就更好,因为我有3年没有写程序了。
怎样把每一个FLV文件和每一个RMVB文件进行比较大小,符合条件的就更名为AVI文件?(不要考虑更名后的文件能否播放,因为我只是为了说明方便)
2013-07-20 22:52
tzgy
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2013-8-24
收藏
得分:0 
回复 5楼 kv48
[code][/code]
2013-08-24 18:52
快速回复:如何用VB编程对指定文件夹下所有大小相差100字节的文件重命名?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030221 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved