标题:vb是否可以实现判断文件夹内文件同名称并自动剪切到另一文件夹
只看楼主
nps
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-5-9
 问题点数:0 回复次数:13 
vb是否可以实现判断文件夹内文件同名称并自动剪切到另一文件夹

请问各位高手,用vb是否可以实现对文件夹内的文件进行判断是否存在同名称的两文件,然后将此文件剪切粘贴到别一文件夹中。
例如c盘中有a和b两文件夹,在A文件夹中有jpg和txt类型的文件如: a.jpg、 a.txt b.jpg、 b.txt c.jpg
当程序运行自动对A文件夹进行监控,如发现有同名的文件(即jpg和txt文件名称相同)就自动把同名的文件剪切到b文件夹中。本例将剪切文件 a.jpg、 a.txt b.jpg、 b.txt 到B文件夹中,因c.jpg没有同名的txt所以示能一起剪切到B文件夹中。

搜索更多相关主题的帖子: 文件夹 txt 名称 剪切 jpg 
2006-05-09 11:56
freeforever
Rank: 4
等 级:业余侠客
威 望:3
帖 子:368
专家分:201
注 册:2005-11-2
得分:0 
你要干什么,备份吗?那要是在A中重名了同时在B中也同名你怎么办?

其实我也很无聊!
2006-05-09 12:06
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
得分:0 
widows里不可能存在同名的文件.

IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-05-09 12:35
nps
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-5-9
得分:0 

我是说名称相同但后缀名不同就形如 abc.jpg和abc.txt
则把此两个文件abc.jpg abc.txt

同时剪切到b文件夹中

2006-05-09 15:38
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
得分:0 
你会不会用FSO模型?
引用里添加一个Microsoft Scripting Runtime
就可以了

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-09 16:13
nps
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-5-9
得分:0 

我是初学者不知楼上兄弟或各位高手给点详细的指定!

2006-05-09 20:47
nps
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-5-9
得分:0 
还是没有高手指定啊!!
2006-05-10 14:43
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
得分:0 
引用里添加一个Microsoft Scripting Runtime
然后:
Dim Fsop As New FileSystemObject
Dim CurFolder As Folder
Dim SubFile As File
Set CurFolder=Fsop.GetFolder(路径) '这里获得你所监视的文件夹
For Each SubFile In CurFolder '这里对该文件夹里所有的文件进行排查
'用SubFile.Name获得文件名,然后你想对这些文件名怎么操作就随你便了
Next

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-10 14:56
cxf6672
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2006-4-18
得分:0 

我也是个初学者,不知楼上高手能多指定些,详细一些如何引用Microsoft Scripting Runtime,然后代码如何操作

2006-05-10 19:59
quickbird
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-1-1
得分:0 
简单的判断便可以实现了

算浮生事,瞬息光阴,锱铢名宦。 正欢笑,试恁暂时分散。 却是恨雨愁云,地遥天远。
2006-05-10 20:49



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-62816-1-1.html




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

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