Версия AutoIt:3.3.6.1
Описание:
Доброе время суток возникла такая проблемка нужна программка для удаления файлов старше определённой даты с FTP сервера. Благодаря умельцам с форума нашел два скрипта которые в суме бы дали мне что надо но уж 3 день мучаюсь не получается их соединить.
Первый скрипт подключение к серверу и удаление файла. Долго мучился но всё-таки сделал его подходящим для себя так как не мог найти место куда нужно вписывать порт.
второй скрипт взят с форума только чутка уменьшил. Он по флагу выбирает атрибут и дальше высчитывает разницу между текущей датой и датой файла сравнивает с дельтой , если больше то переносит в корзину.
Примечания:
По отдельности скрипты работаю. Хотелось бы соединить. Буду благодарен любой помощи.
Описание:
Доброе время суток возникла такая проблемка нужна программка для удаления файлов старше определённой даты с FTP сервера. Благодаря умельцам с форума нашел два скрипта которые в суме бы дали мне что надо но уж 3 день мучаюсь не получается их соединить.
Первый скрипт подключение к серверу и удаление файла. Долго мучился но всё-таки сделал его подходящим для себя так как не мог найти место куда нужно вписывать порт.
Код:
#include <FTPEx.au3>
$sPassive = "0"
$sPort = "2222"
$sServer = "1.1.1.1"
$sUserName = ""
$sPassword = ""
$sDir = "/ftp_shares/Backup1c/BackUpSQL/BPATPA/Text1.txt"
$hOpen = _FTP_Open('MyFTP Control')
If @Error Then
MsgBox(16,"Супер FTP клиент","Не удалось создать сессию! Код ошибки: "&@Error&"")
;GUIDelete ( $hWnd )
;GuiEnable($hGui)
;Return SetError(1,0,0)
EndIF
$hConn = _FTP_Connect($hOpen, $sServer, $sUserName, $sPassword, $sPassive, $sPort)
If @Error Then
MsgBox(16,"Супер FTP клиент","Не удалось подключиться к серверу! Код ошибки: "&@Error&"")
EndIF
MsgBox(16,"Супер FTP клиент",$hConn)
_FTP_FileDelete($hConn, $sDir)второй скрипт взят с форума только чутка уменьшил. Он по флагу выбирает атрибут и дальше высчитывает разницу между текущей датой и датой файла сравнивает с дельтой , если больше то переносит в корзину.
Код:
#include <Date.au3>
#include <File.au3>
$path = "C:\Users\Stas\Downloads" ;папка для очистки.
$delta = "2" ; кол-во дней, старше которых удаляем.
$flag = 0; 0-дата последнего изменения, 1-дата создания, 2-дата последнего открытия.
$aReturn = _FileSearch($path, '*.*')
For $i = 1 To UBound($aReturn) - 1
$aTime = FileGetTime($aReturn[$i], $flag)
MsgBox(16,"Супер FTP клиент",$aReturn[$i])
If _DateDiff('D', $aTime[0] & '/' & $aTime[1] & '/' & $aTime[2], _NowCalc()) > $delta Then
MsgBox(16,"Супер FTP клиент",$aReturn)
FileRecycle($aReturn[$i])
EndIf
Next
_DirRemoveEmptyTime($path)
Func _FileSearch($sPath, $sFileMask)
Local $sOut = StringToBinary("0" & @CRLF, 2), $aOut
Local $hDir = Run(@ComSpec & ' /U/C DIR "' & $sPath & '\' & $sFileMask & '" /S/B/A-D', @SystemDir, @SW_HIDE, 6)
While 1
$sOut &= StdoutRead($hDir, False, True)
If @error Then ExitLoop
WEnd
$aOut = StringRegExp(BinaryToString($sOut, 2), "[^\r\n]+", 3)
If @error Then Return SetError(1)
$aOut[0] = UBound($aOut) - 1
Return $aOut
EndFunc ;==>_FileSearch
Func _DirRemoveEmptyTime($sDIR)
Local $iPRC, $aDIR = _FileListToArray($sDIR, '*', 2)
If IsArray($aDIR) Then
For $i = 1 To $aDIR[0]
_DirRemoveEmptyTime($sDIR & "\" & $aDIR[$i])
Next
EndIf
If DirGetSize($sDIR) = 0 Then
$aTimeDIR = FileGetTime($sDIR, $flag)
If _DateDiff('D', $aTimeDIR[0] & '/' & $aTimeDIR[1] & '/' & $aTimeDIR[2], _NowCalc()) > $delta Then
FileRecycle($sDIR)
EndIf
EndIf
EndFunc ;==>_DirRemoveEmptyTimeПримечания:
По отдельности скрипты работаю. Хотелось бы соединить. Буду благодарен любой помощи.
