|
M大,用此段代码复制大量文件时,会程序无响应,有办法解决吗
- CALL @WIN1
- _SUB SetEdit1
- BROW MntDir1,*%Edit1%, 请选择目标目录
- FIND $%Mntdir1%=,!ENVI @Edit2=%Mntdir1%
- _END
- _SUB SetEdit2
- BROW txtfile,, 请选择列表文件, txt
- FIND $%txtFILE%=,!ENVI @Edit1=%txtFILE%
- _END
- _SUB SetEdit3
- BROW MntDir2,*%Edit3%, 请选择源文件目录
- FIND $%Mntdir2%=,!ENVI @Edit3=%Mntdir2%
- _END
- //配置文件或者PECMD程序放入目标目录
- _SUB CCC
- READ %Edit1%,%n%,a //文件列表
- FIND $%a%<>,{
- FDIR D=%a%
- MDIR %D%
- //MESS %a%
- FILE %Edit3%\%a%=>%Edit2%\%a%
- }
- CALC n=%n%+1
- _END
- _SUB Start
- READ %Edit1%,-1,m //行号,小于0表示读取行数
- SET n=1
- LOOP %n%<=%m%,CALL CCC
- MESS 复制完成
- _END
- _SUB WIN1,W400H200,文件复制
- LABE -left Label1,W400H20,注意:需将本程序移动到目标目录运行!,,0xFF0000
- LABE Label,L20W120H30T22,请选择列表文件:
- EDIT Edit1,L150W150H20T20,
- ITEM Item1,L300W50H24T18,浏览,CALL SetEdit2
- LABE Labe2,L20W135H20T58,请选择目标目录:
- EDIT Edit2,L150W150H20T55,
- ITEM Item2,L300W50H24T53,浏览,CALL SetEdit1
- LABE Labe3,L20W135H20T90,绝对路径同级目录:
- EDIT Edit3,L150W150H20T88,
- ITEM Item3,L300W50H24T86,浏览,CALL SetEdit3
- ITEM Item4,L140W100H50T110,开始复制,CALL Start
复制代码 |
|