windows下BAT脚本ftp上传文件

windows下BAT脚本ftp上传文件

若有需要请替换ftpip、ftpuser、ftppasswd 为自己ftp服务器地、用户名以及密码。

@echo offrem 获取系统时间的星期值rem set "day=%date:~11,2%"rem 调用VBS程序获取昨日日期start /wait mshta vbscript:createobject("scripting.filesystemobject").createtextfile("temp.txt").write(weekday(date()-1))(window.close)set /p a=<temp.txtdel temp.txt /qset xq=周日if %a%==1 set xq=周日if %a%==2 set xq=周一if %a%==3 set xq=周二if %a%==4 set xq=周三if %a%==5 set xq=周四if %a%==6 set xq=周日if %a%==7 set xq=周日rem ftp服务器IPset "ftpip="rem ftp用户set "ftpuser="rem ftp密码set "ftppasswd="rem ftp上传本地路径set "uploadCilentLocal=D:"rem ftp服务器上传路径set "uploadRemote=/FTP60Backup"rem 是否上传全部与当天set "uploadfile=%xq%.dmp"set "parentDirArr=xiyue"rem 上传文件for %%f in (%parentDirArr%) do (call :uploadFtpFileFun %ftpip%,%ftpuser%,%ftppasswd%,%uploadRemote%,%uploadCilentLocal%\%%f,%%f,%uploadfile%)::函数名 :uploadFtpFileFun  上传文件::参数0，%0  就是函数名本身:uploadFtpFileFun::参数1，%1  ftp服务器地址:ftpip::参数2，%2  ftp服务器用户名:ftpuser::参数3，%3  ftp服务器密码:ftppasswd::参数4，%4  ftp服务器远程目录:uploadRemote::参数5，%5  ftp客户端本地上传目录:uploadCilentLocal::参数6，%6  文件所在目录:uploadDir::参数7，%7  上传文件:upfile:uploadFtpFileFunecho ===========%date:~0,10% %time:~0,8%============%6 start==========================>>ftpUpload.logecho open %1>>ftp.uploadecho %2>>ftp.uploadecho %3>>ftp.uploadecho mkdir %4>>ftp.uploadecho cd %4>>ftp.uploadecho lcd %5>>ftp.uploadecho mkdir %6>>ftp.uploadecho cd  %6>>ftp.uploadecho put %7>>ftp.uploadecho bye>>fftp.uploadFTP -s:ftp.upload>>ftpUpload.logdel ftp.upload /qecho ===========%date:~0,10% %time:~0,8%============%6 endsx==========================>>ftpUpload.logGOTO:EOF