主题：这样的copy怎样实现
zhengxinhai
[专家分：30] 发布于 2008-09-12 17:38:00
有下列语名:
ym=ALLTRIM(thisform.text4.Value)
IF .not.directory('d:\财政数据备份') &&如c:\你想测的文件夹不存在
MD d:\财政数据备份\&ym
ENDIF
xlsnamecz=Getfile("xls")
请问怎样写copy 使选中的文件拷到d:\财政数据备份\&ym下.
我试了几次没有成功.
回复列表 （共9个回复）
沙发
cbl518 [专家分：57140] 发布于 2008-09-12 18:58:00
ym=ALLTRIM(thisform.text4.Value)
IF .not.directory('d:\财政数据备份') &&如c:\你想测的文件夹不存在
MD d:\财政数据备份\&ym
ENDIF
xlsnamecz=Getfile("xls")
COPY FILE (xlsnamecz) TO (ADDBS("d:\财政数据备份\"-ym)-xlsnamecz)
板凳
cbl518 [专家分：57140] 发布于 2008-09-12 19:00:00
ADDBS(cPath) && 保证一个路径表达式，最后有一个反斜杠。
3 楼
zhengxinhai [专家分：30] 发布于 2008-09-12 21:38:00
对不起,我写清自己的问题,有下列语名:
ym=ALLTRIM(thisform.text4.Value)
IF .not.directory('d:\财政数据备份\&ym') &&如c:\你想测的文件夹不存在
MD d:\财政数据备份\&ym
ENDIF
xlsnamecz=Getfile("xls")
请问怎样写copy 使选中的文件拷到d:\财政数据备份\&ym下.
我试了几次没有成功.
4 楼
zhengxinhai [专家分：30] 发布于 2008-09-12 21:42:00
改了几次提示无效的路径名或文件名,请问cb1518怎么修改一下呢?
5 楼
cbl518 [专家分：57140] 发布于 2008-09-12 22:15:00
thisform.text4.Value
输入的是什么？
怎样输入的？
6 楼
moz [专家分：37620] 发布于 2008-09-13 00:08:00
ym='d:\财政数据备份\'+ALLTRIM(thisform.text4.text)
IF !directory(ym)
7 楼
zhengxinhai [专家分：30] 发布于 2008-09-13 00:50:00
ym='d:\财政数据备份\'+ALLTRIM(thisform.text4.text)
IF !directory(ym)以后,请问老师怎样写代码实现将xlsnamecz=Getfile("xls")
选中的文件拷到ym目录下呢?
8 楼
moz [专家分：37620] 发布于 2008-09-13 07:52:00
copy file (xlsnamecz) to justpath(ym)
9 楼
wuzhouhong [专家分：10890] 发布于 2008-09-14 22:13:00
MD ("d:\财政数据备份\"+ym)
千万千万不要使用&替换
我来回复
您所在位置：