Есть диск, на который складываются бекапы. Периодически он заполняется. Вот думаю, реально ли как-то очищать его при достижении определенного лимита..ну или на крайний случай, получать какое-то уведомление на почту.. Как можно реализовать подобное?

Что такое лимит?

(0) Формат?

(1) ну допустим, диск 500 гигов..а свободного места осталось 50 или меньше..

(2) в смысле?

(4) Раз в день форматируй диск и он никогда не заполнится :)

Лучше реализовать и то и другое - и purge старых файлов и уведомление, что место на диске заканчивается. Реализовать можно любым скриптовым языком - vbs, autoit и т.п.

(5) ты жестокий человек..если все так решаешь радикально)

(6) не подскажешь..где можно посмотреть какие-то работающие решения?

Планировшик запускает батник,раз в месц,тот удаляет файло

(7) А если серьёзно, то есть куча софта, который это умеет делать.

(8) можешь даже на 1С написать, перебрать файлы, получить атрибуты и удалить ненужные.

(0) А что за бекапы?

(11) ну кстати да..вариант..надо подумать

(12) базы 1с

формат С в шедулер

(8)А голова тебе зачем?

(14) Если скулем бекапишь, то вообще проблемы нету.

(17) скулем..там это как то можно настроить?

*vbs - Оставляет только последние два дня
On Error Resume Next
Dim Foleder, Folders

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("E:\LogShipping\CTF")

Set Folders = Folder.SubFolders
For Each Folder In Folders

datenew = DateAdd("d", 2, Folder.DateCreated)

if datenew < now then

Folder.delete
end if

Next
Set FSO = Nothing

(18) Да, можно. Называется "Задача "Очистка после обслуживания" в планах обслуживания.

(8) на autoit (удаление старых файлов):


#NoTrayIcon

#include <Array.au3>
#include <Date.au3>
#include <File.au3>

Local $Folder, $FileList, $FileType = '*.*', $ScavangeDate = 10

Dim $LogFileName = @ScriptName
   $LogFileName = StringLeft( $LogFileName, StringInStr( $LogFileName, "." ) - 1 ) & ".log"

_Main()

Func ErrMsg( $ErrStr, $ErrorCode = 1 )

   $ErrStr = " Ошибка: " & $ErrStr

   MsgBox( 0, "Ошибка", $ErrStr, 600 )

   Exit $ErrorCode

EndFunc ;ErrMsg

Func _Main()

   If $CmdLine[ 0 ] < 1 Then ;выведем ошибку и выйдем

       ErrMsg( "Не указаны все параметры (нужно 1)"  )

   EndIf

   $Folder = $CmdLine[ 1 ]
   If Not FileExists( $Folder ) Then

       ErrMsg( "Папка не существует: " & $Folder )

   EndIf

   ;~ $Folder = FileSelectFolder('Choose The Diretory To Scavange For Old Files', '')
   ;~ If @error Then Exit


   If $CmdLine[ 0 ] > 1 Then ;получим колво дней для удаления

       $ScavangeDate = $CmdLine[ 2 ]
       $ScavangeDate = Number ( $ScavangeDate )

   EndIf

   $FileList = _FileListToArray( $Folder, $FileType, 1 )
   If @error Then Exit

   For $i = $FileList[0] To 1 Step -1

       $FullFileName = $Folder & '\' & $FileList[ $i ]

       Local $FileDate = FileGetTime( $FullFileName )

       If IsArray($FileDate) Then

           Local $Date = $FileDate[0] & '/' & $FileDate[1] & '/' & $FileDate[2] & ' ' & $FileDate[3] & ':' & $FileDate[4] & ':' & $FileDate[5]

;~ MsgBox( 0, "", "File: " & $FileList[$i] & ", Date: " & $Date & ", DateDiff: " & _DateDiff('D', $Date, _NowCalc()) )

           If _DateDiff('D', $Date, _NowCalc()) < $ScavangeDate Then ContinueLoop

       EndIf

       FileDelete( $FullFileName )

       ;_ArrayDelete($FileList, $i)

   Next

EndFunc ;_Main

http://zalil.ru/33655799

(20) я думаю, это то что нужно! спасибо Всем

Со сравнением дат поаккуратнее, а то был случай - после "удачной" синхронизации времени дата на компе с быкапами ушла далеко вперед, и все архивы были затерты как сильно устаревшие :D

просто так делать не верно, надо "удалить все кроме последних успешных Х"

создать в планировщике 7 заданий с именами бекапов - бекап1, бекап2, ..., бекап7
все будет само

и никакого программирования

+ в виндузе есть встроенная команда удаления старых файлов