标题:用copy备份数据表,结果显示不能创建选择的目录
只看楼主
fwy12
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2020-2-16
结帖率:94.44%
已结贴  问题点数:20 回复次数:6 
用copy备份数据表,结果显示不能创建选择的目录
用copy备份数据表,结果显示不能创建选择的目录。
我用浏览按钮,选择路径。给Thisform.pageframe1.page1.text1.Value。如果是选择的是根目录像E:\就可以备份,但是如果选择文件夹,像E:\00\,就会显示 不能创建 E:\00\,请问是什么原因呢?

程序代码:
Case Thisform.pageframe1.page1.check1.Value=0
    If Empty(Thisform.pageframe1.page1.text1.Value)=.F.
        Dir=Sys(2003)
        dir1=Sys(5)
        ml=dir1+Dir
        Back=Alltrim(Thisform.pageframe1.page1.text1.Value)
        If Empty(Back)=.T.
            =Messagebox("请重新选择你所要备份的目录!")
            Retu
        Else
            If Thisform.pageframe1.page1.check2.Value=1
                &&Select cundao
                COPY File cundao.Dbf To &Back
            Endif
            If Thisform.pageframe1.page1.check3.Value=1
                &&Select jiamu
                Copy File jiamu.Dbf To &Back
            Endif
        Endif
    Endif
Endcase
=Messagebox("数据备份已经完成!","信息提示框")
搜索更多相关主题的帖子: Thisform Value 选择 copy 备份 
2020-02-27 16:49
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:40
帖 子:749
专家分:2475
注 册:2011-5-8
得分:5 
copy file 只能向已经存在的文件夹复制文件,不能创建文件夹。并且必须指定目标文件名。如果目标文件名与源文件名相同,可以用通配符*。
注意,源文件必须关闭。

dBase有人接盘了。
2020-02-27 20:42
fwy12
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2020-2-16
得分:0 
我是选择的目录,这个目录是存在的啊
2020-02-27 21:23
瓜瓜1990
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:18
帖 子:125
专家分:699
注 册:2020-2-25
得分:5 
回复 楼主 fwy12
地址back不要用宏代换“&”,用小括号括起来试试

piu~piu~
2020-02-27 21:48
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:5 
先不要搞那么多代码,简单试试就清楚,如:
1、自已手动建一目录 D:\00 和文件 D:\00\tmp.txt
2、用一句试就可以: COPY D:\00\tmp.txt TO D:\00\tmp2.txt

2020-02-27 21:50
sxy166
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:68
专家分:127
注 册:2012-3-28
得分:5 
因为选择目录后边有个  \ ,所以出错,可以加上文件名或者去掉最后那个反斜杠

[此贴子已经被作者于2020-2-28 09:29编辑过]

2020-02-28 09:16
fwy12
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2020-2-16
得分:0 
回复 6楼 sxy166
正是这个原因,十分感谢。
2020-02-29 13:11



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




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

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