vfp 如何编程选择多个文件并拷贝到指定目录 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → vfp 如何编程选择多个文件并拷贝到指定目录

标题：vfp 如何编程选择多个文件并拷贝到指定目录

只看楼主

dlnjyh

等　级：新手上路
帖　子：1
专家分：0
注　册：2013-2-17
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：15

vfp 如何编程选择多个文件并拷贝到指定目录

搜索更多相关主题的帖子: 如何　编程　

2013-02-17 16:16

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 2 楼

得分:7

列表框可以多选

相互学习，互相交流，共同提高。

2013-02-17 16:45

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 3 楼

得分:0

供参考：

多选文件拷贝到.rar (2.39 KB)

收到的鲜花

wengjl 于 2013-02-19 12:13 送鲜花 5朵附言：我很赞尝

相互学习，互相交流，共同提高。

2013-02-19 10:30

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 4 楼

得分:7

我来下载先　学学

只求每天有一丁点儿的进步就可以了

2013-02-19 10:49

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 5 楼

得分: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

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 6 楼

得分:0

按我的理解：
alltrim(.list1.list(2))与
alltrim(.list1.list(cnt))二者是一样的，一个是固定为第2项的值，后一个为动态第N项的值

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

只求每天有一丁点儿的进步就可以了

2013-02-19 12:11

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 7 楼

得分:7

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

授人以渔，不授人以鱼。

2013-02-19 14:34

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 8 楼

得分:0

以下是引用TonyDeng在2013-2-19 14:34:15的发言：

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

我不是楼主

TonyDeng　你能解答我的疑问吗？

只求每天有一丁点儿的进步就可以了

2013-02-19 15:23

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 9 楼

得分: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

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 10 楼

得分:0

以下是引用TonyDeng在2013-2-19 14:34:15的发言：

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

的确，免费的嘛，问题肯定多多，只从最基础的方面解决楼主最想知道的。

相互学习，互相交流，共同提高。

2013-02-19 15:33

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