| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 648 人关注过本帖
标题:vfp 如何编程选择多个文件并拷贝到指定目录
只看楼主 加入收藏
dlnjyh
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2013-2-17
结帖率:0
  已结贴   问题点数:20  回复次数:15   
vfp 如何编程选择多个文件并拷贝到指定目录
vfp 如何编程选择多个文件并拷贝到指定目录
搜索更多相关主题的帖子: 如何 编程 
2013-02-17 16:16
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
  得分:7 
列表框可以多选

相互学习,互相交流,共同提高。
2013-02-17 16:45
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
  得分:0 
供参考:
附件: 您没有浏览附件的权限,请 登录注册
收到的鲜花
  • wengjl2013-02-19 12:13 送鲜花  5朵   附言:我很赞尝

相互学习,互相交流,共同提高。
2013-02-19 10:30
wengjl
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:82
帖 子:1742
专家分:3111
注 册:2007-4-27
  得分:7 
我来下载先 学学

只求每天有一丁点儿的进步就可以了
2013-02-19 10:49
wengjl
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:82
帖 子:1742
专家分:3111
注 册:2007-4-27
  得分:0 
WITH thisform
    IF !EMPTY(.list1.Value).and.!empty(.text1.Value)
        FOR cnt=1 to .list1.listcount
            if .list1.selected(cnt)
                COPY FILE (alltrim(.list1.list(2))+alltrim(.list1.list(cnt))) to (filepath+"*.*")
            endif
        NEXT
        MESSAGEBOX("拷贝完成!")
    ENDIF
ENDWITH

请问QJBZJP:上述红色部分是什么意思?为什么去掉了红色部分测试就不行了?

只求每天有一丁点儿的进步就可以了
2013-02-19 12:00
wengjl
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:82
帖 子:1742
专家分:3111
注 册:2007-4-27
  得分:0 
按我的理解:
alltrim(.list1.list(2))与
alltrim(.list1.list(cnt))二者是一样的,一个是固定为第2项的值,后一个为动态第N项的值

而用消息框探测得到,前一个为路径值,后一个为文件名值,令人费解啊!求答案?

只求每天有一丁点儿的进步就可以了
2013-02-19 12:11
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25861
专家分:48889
注 册:2011-6-22
  得分:7 
楼主需要的界面到底怎样,其实是未知的,也就是说,这个解决方案是否合他心意?

授人以渔,不授人以鱼。
2013-02-19 14:34
wengjl
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:82
帖 子:1742
专家分:3111
注 册:2007-4-27
  得分:0 
以下是引用TonyDeng在2013-2-19 14:34:15的发言:

楼主需要的界面到底怎样,其实是未知的,也就是说,这个解决方案是否合他心意?
我不是楼主

TonyDeng 你能解答我的疑问吗?

只求每天有一丁点儿的进步就可以了
2013-02-19 15:23
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
  得分:0 
以下是引用wengjl在2013-2-19 12:00:19的发言:

WITH thisform
    IF !EMPTY(.list1.Value).and.!empty(.text1.Value)
        FOR cnt=1 to .list1.listcount
            if .list1.selected(cnt)
                COPY FILE (alltrim(.list1.list(2))+alltrim(.list1.list(cnt))) to (filepath+"*.*")
            endif
        NEXT
        MESSAGEBOX("拷贝完成!")
    ENDIF
ENDWITH

请问QJBZJP:上述红色部分是什么意思?为什么去掉了红色部分测试就不行了?
我也是测试后才得出结论的:
.list1.list(1) &&驱动器路径
.list1.list(2) &&完整路径
.list1.list(cnt) &&动态值,是选定的文件名。

相互学习,互相交流,共同提高。
2013-02-19 15:25
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
  得分:0 
以下是引用TonyDeng在2013-2-19 14:34:15的发言:

楼主需要的界面到底怎样,其实是未知的,也就是说,这个解决方案是否合他心意?
的确,免费的嘛,问题肯定多多,只从最基础的方面解决楼主最想知道的。

相互学习,互相交流,共同提高。
2013-02-19 15:33
快速回复:vfp 如何编程选择多个文件并拷贝到指定目录
数据加载中...
 
   



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

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