CMD/BAT:Копирование по дате с переименованием и удаление старых файлов

@echo off
setlocal ENABLEDELAYEDEXPANSION
set host=xxx.com
set remotedir=.
set user=ЛогинЕслиНадо
set pass=ПарольЕслиНадо
set confile=%temp%\%random%
set suffix=upload.txt
set pattern=??.??.??.%suffix%
set target=D:\dir\test
mkdir "%target%" 2> nul
(
echo %user%
echo %pass%
echo cd "%remotedir%"
echo ls %pattern%
echo quit
) > "%confile%"
set getfile=
set /a x=0
for /f "tokens=1,2,3,4* delims=." %%a in ('ftp.exe -v -s:"%confile%" %host% ^| findstr /r /c:"%pattern:?=[0-9]%"') do (
    if "%%c%%b%%a" geq "!x!" (
        set /a x=%%c%%b%%a
        set getfile=%%a.%%b.%%c.%suffix%
    )
)
(
echo %user%
echo %pass%
echo cd "%remotedir%"
echo get %getfile% "%target%\%getfile%"
echo quit
) > "%confile%"
ftp.exe -v -s:"%confile%" %host%
del /q "%confile%"

@echo off
setlocal ENABLEDELAYEDEXPANSION
set host=xxx.com
set remotedir=.
set user=ЛогинЕслиНадо
set pass=ПарольЕслиНадо
set confile=%temp%\%random%
set suffix=upload.txt
set pattern=??????.%suffix%
set target=D:\dir\test
mkdir "%target%" 2> nul
(
echo %user%
echo %pass%
echo cd "%remotedir%"
echo ls %pattern%
echo quit
) > "%confile%"
set getfile=
set /a x=0
for /f "tokens=1,2* delims=." %%a in ('ftp.exe -v -s:"%confile%" %host% ^| findstr /r /c:"%pattern:?=[0-9]%"') do (
    set xxx=%%a
    set xxx=!xxx:~-2!!xxx:~2,2!!xxx:~,2!
    if "!xxx!" geq "!x!" (
        set /a x=!xxx!
        set getfile=%%a.%suffix%
    )
)
(
echo %user%
echo %pass%
echo cd "%remotedir%"
echo get %getfile% "%target%\%getfile:*.=%"
echo quit
) > "%confile%"
ftp.exe -v -s:"%confile%" %host%
del /q "%confile%"

@echo off
setlocal ENABLEDELAYEDEXPANSION
set host=xxx.com
set remotedir=.
set user=ЛогинЕслиНадо
set pass=ПарольЕслиНадо
set confile=%temp%\%random%
set suffix=upload.txt
set pattern=*%suffix%
set target=D:\dir\test
call :len "%suffix%"
set /a len=%len% + 1
mkdir "%target%" 2> nul
(
echo %user%
echo %pass%
echo cd "%remotedir%"
echo ls %pattern%
echo quit
) > "%confile%"
echo "%pattern:**=[0-9]*%"
set getfile=
set /a x=0
set /a xxx=0
for /f "delims=" %%a in ('ftp.exe -v -s:"%confile%" %host% ^| findstr /r "%pattern:**=[0-9][0-9]*%"') do (
    set xxx=%%a
    set xxx=!xxx:~0,-%len%!
    set "xxx=!xxx:~4!!xxx:~2,2!!xxx:~,2!"
    if !xxx! geq !x! (
        set x=!xxx!
        set getfile=%%a
    )
)
(
echo %user%
echo %pass%
echo cd "%remotedir%"
echo get %getfile% "%target%\%suffix%"
echo get %getfile% "%target%\%getfile%"
echo quit
) > "%confile%"
ftp.exe -v -s:"%confile%" %host%
del /q "%confile%"
exit /b

:len (string) {
    @@rem Процедура определения длины строки
    @@rem
    setlocal
    set opt=%~1
    set opt=%opt:"='%
    set out=%~0
    if "%out:~0,1%"==":" (
        set out=%out:~1%
        ) else (
        set out=out
        )
    set /a n=0
    :loop_len
    if not "%opt%"=="" (
        set opt=%opt:~1%
        set /a n=%n%+1
        goto loop_len
        )
    endlocal & set /a %out%=%n%
    exit /b 0
    }

@echo off
 echo open ftp.opera.com>ftp.txt
(
 echo anonymous
 echo.
 echo binary
 echo prompt
 echo hash
 echo lcd "%temp%"
 echo cd /pub/opera/win/1216/int/
 echo mget *
 echo disconnect
 echo quit
)>>ftp.txt
 ftp -s:ftp.txt
 pause>nul

open **.***.**.** 
********
********
bin
cd /regions/forall/nodbases
bin
hash
mget D:\NOD\nodbases
bye

ftp -s:nod.txt
for /f %%i in (%log%) do (
set filename=%%i
)
pause

@echo off
::Задаем параметры подключения
set host=**.***.**.**
set port=
set user=********
set password=*********
set Mainfolder=//regions
set SubFolder=/forall
set SubFolder=/nodbases
set fileMask=/nodbases/*.*
set LocalFolder=D:\NOD\nodbases
 
::Временный файл команд для утилиты FTP.exe
set CommFTP="%temp%\FTP_Script.txt"
 
::Генерируем файл FTP команд
> %CommFTP% (
  echo open %host% %port%
  echo %user%
  echo.%password%
  echo binary
  echo prompt
  echo hash
  echo lcd "%LocalFolder%"
  if "%Mainfolder%" neq "" echo cd "%Mainfolder%"
  if "%SubFolder%" neq "" echo cd "%SubFolder%"
  echo mget %fileMask%
  echo disconnect
  echo quit
)
 
::Добавляем утилиту FTP в исключения брандмауера Windows
netsh firewall add allowedprogram "%windir%\system32\ftp.exe" ENABLE
 
::Запускаем на выполнение пакетник команд FTP
ftp.exe -s:%CommFTP%
 
::Удаляем пакетник
del /f /q %CommFTP%
pause

@echo off
 echo open **.***.**.**>ftp.txt
(
 echo ********
 echo ********
 echo binary
 echo prompt
 echo hash
 echo lcd "%D:\NOD\nodbases%"
 echo cd /regions/forall/nodbases
 echo get *.*
 echo disconnect
 echo quit
)>>ftp.txt
 ftp -s:ftp.txt
 pause>nul

2 0 Login successful.
ftp> binary
200 Switching to Binary mode.
ftp> prompt
нтepa тивны  pe  Ё  Bл  .
ftp> hash
Bлвo      eв Ё xeиЁpoвaния  B     ftp: (2048 . a в/xeи- eв a).
ftp> lcd D:\NOD\nodbases
Te гйЁ   o a ьны   aвa oг D:\NOD\nodbases.
ftp> cd /regions/forall/nodbases
2 0 Directory successfully changed.
ftp> mget *.*
200 Switching to Binary mode.
ftp> disconnect
221 Goodbye.
ftp> quit

@echo off
 echo open **.***.**.**>ftp.txt
(
 echo ********
 echo ********
 echo binary
 echo prompt
 echo hash
 echo lcd D:\NOD\nodbases
 echo cd /regions/forall/nodbases
 echo mget *
 echo disconnect
 echo quit
)>>ftp.txt
 ftp -s:ftp.txt>ftp_log.txt
 pause>nul

ftp> Связь с **.***.**.**.

open **.***.**.**
220 (vsFTPd 2.3.2)
Пользователь (**.***.**.**:(none)): 
331 Please specify the password.

230 Login successful.
ftp> binary
200 Switching to Binary mode.
ftp> Интерактивный режим Выкл.

ftp> prompt
Вывод метки хеширования Вклftp: (2048 байт/хеш-метка).

ftp> hash
Текущий локальный каталог D:\NOD\nodbases.

ftp> lcd D:\NOD\nodbases
cd /regions/forall/nodbases
250 Directory successfully changed.
ftp> mget *
200 Switching to Binary mode.
ftp> disconnect
221 Goodbye.
ftp> quit

@echo off
 echo open **.***.**.**>ftp.txt
(
 echo ********
 echo ********
 echo binary
 echo prompt
 echo hash
 echo lcd D:\NOD\nodbases
 echo cd /regions/forall/nodbases
 echo ls . ftp_list.txt
 echo mget *
 echo disconnect
 echo quit
)>>ftp.txt
 ftp -s:ftp.txt>ftp_log.txt
 pause>nul

ftp.exe.txt

Enable   ENABLE / C:\WINDOWS\system32\ftp.exe