中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-07 14:39
48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行
DOS批处理 & 脚本技术(批处理室) » [求助]以下的码有什么问题
可打印版本  622 / 0
第1楼 xmi 发表于 2008-02-26 00:12
初级用户 发帖 56 积分 125
[求助]以下的码有什么问题
请看看为何以下的只读到一个档案就停了?..

fdate /Fsub /N0 /At /Occyymmdd >_.d1
for /F %%i in (_.d1) do set folder=%%i

Fdate /Fsub /N0 /Oddmmyy /P >_.d3
for /F %%i in (_.d3) do set file=%%i

echo %file%
pause
@echo on

cd..\data
for /f "delims=" %%i in ('dir /a/b "%File%*"') do set tempFile=%%i&&goto Sub
goto :eof

:Sub
rem seperate file name: 2502082F2.abc.zip
set file_p1=%tempFile:~0,6%
set file_p2=%tempFile:~6,3%
set file_p3=%tempFile:~10,3%
pause
cd..

rem Create Folder & copy file

set "NewPath=%folder%.%file_p3%"
md "computer\%NewPath%"
dir/w
pause
copy "data\%File%*" "computer\%NewPath%"
if not %errorlevel%==0 echo %~1 拷贝失败!

:quit
set NewPath=
set CurDir=
goto :eof

我已试了整天了

[ Last edited by xmi on 2008-2-26 at 10:46 PM ]
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023