DOS批处理做的文件上传(二)

    今天做了上传文件的第二版。新增功能能够自动搜索当前目录下所有文件并上传，不过要求对应服务器要提前建好对应子目录，否则会失败。可以做为上传备份工具。后面代码自动屏蔽了bat和log文件。以及临时产生的文件。上代码：

rem ********************************************************
set server=(服务器名称或IP地址)

set usernm=(用户名)
set passwd=(密码)
set locpath=(本地路径。默认当前路径)
set serpath=(服务器路径。默认登陆路径)
set mode=bin
rem *********************************************************
echo 1^>Creating connect file...
set d=%DATE:~4%
echo open %server%>ftp.txt
echo user %usernm%>>ftp.txt
echo %passwd%>>ftp.txt
echo %mode%>>ftp.txt
echo cd %serpath%>>ftp.txt
echo lcd %locpath%>>ftp.txt
echo prompt>>ftp.txt
set p=%cd%
for /r %%i in (*) do (
call :put "%%i" "%p%"
)
::echo %method% %locfile%>>ftp.txt
echo bye>>ftp.txt
echo 2^>Transfering files...
ftp -n -s:ftp.txt>Archive_Batch_%d:/=%.log
echo 
pause
del

:put
set a=%1
set b=%2
set a=%a:"=%
set b=%b:"=%
set a=%a:\=/%
set b=%b:\=/%
if %a:~-3%==bat goto :eof
if %a:~-3%==log goto :eof
if %a:~-7%==ftp.txt goto :eof
call echo put %1 %%a:%b%/=%%>>ftp.txt
goto :eof