中国DOS联盟

::main.bat - 每隔固定时间从ftp服务器上取文件保存在本地
::genteman - 2010-06-19 - CMD@WinXP Pro
::contact amdaround@163.com
rem @echo off & setlocal
title 每隔固定时间从ftp服务器上取文件保存在本地

if [%1]==[/start] echo 正在创建任务 & call "%~dp0init.bat%" & exit /b
if [%1]==[/stop] echo 正在删除任务 & call "%~dp0task.bat" & exit /b

echo 用法："%~n0 {/start|/stop}"
echo.
echo /start     创建任务
echo /stop      删除任务

pause & exit /b

rem @echo off
setlocal enabledelayedexpansion

:: 捕捉抛出错误并处理
if [%1]==[:error] goto :error
if not exist "%~dp0ftp.ini" %0 :error 1 "%~dp0ftp.ini 不存在"

:: 读取配置文件

for /f "tokens=1,* delims==" %%i in ('findstr "[^=]$" "%~dp0ftp.ini"') do (
set "str=%%j"
echo %%i | findstr /c:"ftp server ip" >nul && set "ftp_server_ip=!str: =!"
echo %%i | findstr /c:"port" >nul && set "port=!str!"
echo %%i | findstr /c:"username" >nul && set "user=!str!"
echo %%i | findstr /c:"password" >nul && set "password=!str!"
echo %%i | findstr /c:"remote directory path" >nul && set "rdp=!str!"
echo %%i | findstr /c:"local directory path" >nul && set "ldp=!str!"
echo %%i | findstr /c:"interval time" >nul && set "interval_time=!str: =!"
)

:: 检查配置是否已设置
if not defined ftp_server_ip %0 :error 2 "IP地址未设置"
if not defined interval_time set interval_time=1
if not defined user set "user=anonymous" & set "password=amdaround@163.com"
if not defined port set port=21
if not defined rdp %0 :error 2 "远程目录未设置"
if not defined ldp %0 :error 2 "本地目录未设置"

:: 检查配置合法性
echo %ftp_server_ip% | findstr "^[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*.$" >nul
if not errorlevel 1 (
for /f "delims=. tokens=1-4" %%i in ("%ftp_server_ip%") do (
set i_1=%%i
set i_2=%%j
set i_3=%%k
set i_4=%%l
)
) else (
%0 :error 3 "IP: %ftp_server_ip% 无效，请重新设置"
)

for /f "delims== tokens=1,*" %%a in ('set i_') do (
set num=%%b
if not "!num:~3!"=="" %0 :error 3 "IP: %ftp_server_ip% 无效，请重新设置"
if !num! GTR 255 %0 :error 3 "IP: %ftp_server_ip% 无效，请重新设置"
)

rem if not exist "%ldp%\nul" %0 :error 4 "目录 %ldp% 不存在"

:: 生成ftp脚本文件
type nul >"%~dp0list.txt"
echo user %user%>>"%~dp0list.txt"
echo %password%>>"%~dp0list.txt"
echo status>>"%~dp0list.txt"
echo lcd "%~dp0">>"%~dp0list.txt"
echo dir "%rdp%" filelist.txt>>"%~dp0list.txt"
echo quit>>"%~dp0list.txt"


type nul >"%~dp0run.bat"
echo ftp -s:"%~dp0list.txt" %ftp_server_ip% %port% ^| findstr /i /c:"not connect" ^>nul ^&^& echo ^%%date:~0,10^%% ^%%time:~0,8^%% server %ftp_server_ip% not connected, please check ip, port, username, password ^>^>"%~dp0ftp.log">>"%~dp0run.bat"

echo.>>"%~dp0run.bat"
echo if exist "%~dp0filelist.txt" (>>"%~dp0run.bat"
echo for /f "tokens=6" %%%%i in ("%~dp0filelist.txt") do (>>"%~dp0run.bat"
echo for /f "tokens=3" %%%%m in ('dir %%%%j ^^^| findstr "%%%%j>nul"') do (>>"%~dp0run.bat"
echo.>>"%~dp0run.bat"
echo if "%%%%m" LSS "%%%%i" echo %%%%j^>^>"%~dp0getfilelist.txt">>"%~dp0run.bat"
echo.>>"%~dp0run.bat"
echo )>>"%~dp0run.bat"
echo )>>"%~dp0run.bat"
echo del /f "%~dp0filelist.txt">>"%~dp0run.bat"
echo )>>"%~dp0run.bat"

echo.>>"%~dp0run.bat"

echo if exist "%~dp0getfilelist.txt" (>>"%~dp0run.bat"
echo for /f %%%%i in ("%~dp0getfilelist.txt") do (>>"%~dp0run.bat"
echo set filestr=!filestr! %%%%i>>"%~dp0run.bat"
echo )>>"%~dp0run.bat"

echo del /f "%~dp0getfilelist.txt">>"%~dp0run.bat"
echo type nul^>"%~dp0mget.txt">>"%~dp0run.bat"
echo echo user %user%^>^>"%~dp0mget.txt">>"%~dp0run.bat"
echo echo %password%^>^>"%~dp0mget.txt">>"%~dp0run.bat"
echo echo status^>^>"%~dp0mget.txt">>"%~dp0run.bat"
echo echo lcd "%ldp%"^>^>"%~dp0mget.txt">>"%~dp0run.bat"
echo echo cd "%rdp%"^>^>"%~dp0mget.txt">>"%~dp0run.bat"
echo if not "%%filestr%%"=="" mget %%filestr%%^>^>"%~dp0mget.txt">>"%~dp0run.bat"
echo echo quit^>^>"%~dp0mget.txt">>"%~dp0run.bat"

echo.>>"%~dp0run.bat"

echo ftp -i -s:"%~dp0mget.txt" %ftp_server_ip% %port% ^| findstr /i /c:"not connect" ^>nul ^&^& echo ^%%date:~0,10^%% ^%%time:~0,8^%% server %ftp_server_ip% not connected, please check ip, port, username, password^>^>"%~dp0ftp.log">>"%~dp0run.bat"
echo )>>"%~dp0run.bat"


:: 创建任务
schtasks /query | findstr "autoftp" >nul
if errorlevel 1 schtasks /create /sc hourly /mo %interval_time% /tn "autoftp" /tr "%~dp0run.bat" /ru "system"
goto :EOF

:error - 错误处理
echo.
echo error %2: %3 >>"%~dp0ftp.log"
exit /b %2

@echo off
schtasks /query | findstr "autoftp" >nul && schtasks /delete /tn "autoftp" /f