[求助] Copy file路径过长,报错!! 请各位大神不吝赐教!
看尽论坛所有关于路径的帖子,仍无法获得解决办法,是故向各位大神请教,谢谢!操作环境: win10,64位, vfp9.0
问题例子:
*1)目标目录路径
Npath=’D:\518D\data\认证检测资料汇总2019-10-24\3)iso9001Q整套数据\中华人民共和国广东省东莞市志勤光电科技有限公司20200503\石龙分公司\年审记录\5运行记录约1203份\2打印-签字-复印-盖公章(红色)-扫描的资料\2行政人事部\3培训资料\2常规培训1\1生效第1月\1管理人员培训_需签字’ &&约260个字符
*2)建立目录
if !DIRECTORY('& Npath') &&
md ('& Npath') &&"
ENDIF && if !DIRECTORY
*3)copy file
Copy FILE "D:\518D\ndata2019-05-31\D-X-C2\*.doc*" TO "& Npath" &&储存DOC文件
*以上,全部报错
*=== 目前想到的笨法子是,手工将目录分几层,逐一建立目录,最后再COPY file
*代码如下:
Npath1='D:\518D\data\认证检测资料汇总2019-10-24\3)iso9001Q整套资料’
Npath2=’中华人民共和国广东省东莞市志勤光电科技有限公司20200503\石龙分公司\年审记录’
Npath3=’5运行记录约1203份\2打印-签字-复印-盖公章(红色)-扫描的资料\2行政人事部\3培训资料’
Npath4=’ 2常规培训1\1生效第1月\1管理人员培训_需签字’
Npath1 = CHRTRAN(Npath1,' ','') &&去除中问空格
Npath1 = ALLTRIM(Npath1) &&去除两头空格
Npath2 = CHRTRAN(Npath2,' ','') &&去除中问空格
Npath2 = ALLTRIM(Npath2) &&去除两头空格
Npath3 = CHRTRAN(Npath3,' ','') &&去除中问空格
Npath3 = ALLTRIM(Npath3) &&去除两头空格
Npath4 = CHRTRAN(Npath4,' ','') &&去除中问空格
Npath4 = ALLTRIM(Npath4) &&去除两头空格
*逐层建目录
*1================
if !DIRECTORY('& Npath1') &&
md ('& Npath1') &&"
ENDIF &&
CHDIR '& Npath1'&&
*2================
if !DIRECTORY('& Npath2') &&
md ('& Npath2') &&"
ENDIF &&
CHDIR '& Npath2' &&
*3================
if !DIRECTORY('& Npath3') &&
md ('& Npath3') &&"
ENDIF &&
CHDIR '& Npath3' &&
*4================
if !DIRECTORY('& Npath4') &&
md ('& Npath4') &&"
ENDIF &&
*最後COPY file
Copy FILE "D:\518D\ndata2019-05-31\D-X-C2\*.doc*" TO "& Npath4" &&储存DOC文件
*请教各位大神,有没有方法自动将目标路径裁剪而达成目的的?? 敬請不吝賜教,谢谢!
[此贴子已经被作者于2020-5-3 11:59编辑过]
