批处理 删除FTP 7天前数据

SET date_tmp=%date:/=%
SET time_tmp=%time: =0%
SET yyyy=%date_tmp:~0,4%
SET mm=%date_tmp:~4,2%
SET dd=%date_tmp:~6,2%
SET hh=%time_tmp:~0,2%
SET mi=%time_tmp:~3,2%
SET ss=%time_tmp:~6,2%
SET sss=%time_tmp:~9,2%
SET TODAY=%yyyy%%mm%%dd%




SET Filepath=D:\dmp_bk\%TODAY%




net use \\10.2.128.5 b@ckup /user:10.2.128.5\backupuser


cd %~dp0


rem 削除日数指定
set daysago=7
set SrcDir=\\10.2.128.5\backup\SDHBIZDBS01\
>dstdate.vbs echo LastDate=date()-%daysago%
>>dstdate.vbs echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)
>>dstdate.vbs echo wscript.echo FmtDate
for /f %%a in ('cscript /nologo dstdate.vbs') do set "dstdate=%%a"
set dstdate=%dstdate:~0,4%%dstdate:~4,2%%dstdate:~6,2%
setlocal enabledelayedexpansion
for /d %%a in ("%SrcDir%/*.*") do (
  if "%%~ta" leq "%dstdate%" (
    set "folderdate=%%~na"
    if "!folderdate!" leq "%dstdate%" if exist "%%a\" rd /s /q "%%a"
        )
    )
endlocal
rem 削除dstdate.vbs
del dstdate.vbs
net use \\10.2.128.5 /del


EXIT