| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1455 人关注过本帖
标题:从A文件夹导入B文件夹
只看楼主 加入收藏
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:9
帖 子:340
专家分:147
注 册:2005-5-23
结帖率:89.29%
收藏
已结贴  问题点数:20 回复次数:7 
从A文件夹导入B文件夹
请问如何把一个文件夹A里的文件导入到另一个文件夹B里,要求A与B有同名的文件不要覆盖,只导入B文件夹中在A 文件夹中没有的文件。
搜索更多相关主题的帖子: 文件夹 如何 
2017-02-18 22:23
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:10 
1、设定“A文件夹”和“B文件夹”
2、用adir()获取A文件夹中的“文件名”
3、用 file(B文件夹+文件名) 检测“B文件夹+文件名”是否存在,如果不存在就 copy file (A文件夹+文件名) to (B文件夹+文件名)。
2017-02-18 22:48
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:9
帖 子:340
专家分:147
注 册:2005-5-23
收藏
得分:0 
非常感谢吹水佬!以前您就帮我解决过问题。在其它论坛上有人说先用adir(),再用ASCAN( ) 函数,我还没弄好。

shenkj001@
2017-02-18 23:01
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 
程序代码:
CLEAR 
=ADIR(afilea,"pict\*.JPG","A",0) && 从该文件夹导出文件到图片文件夹中
=ADIR(afileb,"图片\*.*")
FOR i=1 TO ALEN(afilea,1)
    IF ASCAN(afileb,afilea[i,1])=0 &&在导入文件夹中搜索该文件<afilea[i,1]>是否存在
        COPY FILE ("pict\"+afilea[i,1]) TO ("图片\"+afilea[i,1])
    ENDIF 
ENDFOR

坚守VFP最后的阵地
2017-02-19 02:03
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:9
帖 子:340
专家分:147
注 册:2005-5-23
收藏
得分:0 
非常感谢4楼sdta!帮我解决了问题。

shenkj001@
2017-02-19 09:45
sdoger
Rank: 2
等 级:论坛游民
威 望:1
帖 子:27
专家分:12
注 册:2011-2-15
收藏
得分:0 
用其他方式也可以,一条命令搞定:  不知道是否符合你的要求?
!xcopy d:\a1\*.* d:\a2\*.* /s/d
图片附件: 游客没有浏览图片的权限,请 登录注册
2017-02-23 12:00
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:9
帖 子:340
专家分:147
注 册:2005-5-23
收藏
得分:0 
我试了下6楼sdoger的方法,好像也可以。

[此贴子已经被作者于2017-2-27 17:18编辑过]


shenkj001@
2017-02-25 06:02
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
!xcopy 是什么命令?
2017-03-07 15:00
快速回复:从A文件夹导入B文件夹
数据加载中...
 
   



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

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