Ответ
 
Опции темы
Старый 02.06.2014, 11:42    | »»» |  #1
4ynaka6pa
Дилер
 
Аватар для 4ynaka6pa
 
Липецк, ООО "Черкизово-Растениеводство"
Регистрация: 19.03.2012
Сообщений: 795
4ynaka6pa is on a distinguished road
По умолчанию Удаление бинарный файлов из папки Data

у кого есть наработанный метод борьбы с удалением старых записей БК?
только не надо советовать лазить по всем папкам

хорошо бы было реализовать в самом АГ выбор отображения файлов за перод 1,2,3 года, и добавить кнопочку удалить старше: 3,4,5 лет данные или удалить и оставить 1,2,3 лет

ОАО "Липецкмясо" / ГК "НАПКО", г. Липецк
Непрокин Александр Викторович, инженер-программист
4ynaka6pa вне форума   Ответить с цитированием
Сказал «Я - ЗА»:
SK (15.06.2014)
Старый 02.06.2014, 12:33    | »»» |  #2
Phantom
ТехноКом
 
Аватар для Phantom
 
Челябинск, ООО НПО "ТехноКом"
Регистрация: 28.05.2010
Сообщений: 2,140
Phantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud of
По умолчанию

4ynaka6pa, может использовать встроенные в Windows средства?
forfiles Вам поможет, а в сети куча примеров имеется!

ООО НПО «ТехноКом», г. Челябинск
Попов Дмитрий Александрович, старший инженер по ремонту оборудования
Phantom вне форума   Ответить с цитированием
Старый 02.06.2014, 12:37    | »»» |  #3
Phantom
ТехноКом
 
Аватар для Phantom
 
Челябинск, ООО НПО "ТехноКом"
Регистрация: 28.05.2010
Сообщений: 2,140
Phantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud ofPhantom has much to be proud of
По умолчанию

Вот как-то так:
Помогите написать .bat для удаления старых файлов

ООО НПО «ТехноКом», г. Челябинск
Попов Дмитрий Александрович, старший инженер по ремонту оборудования
Phantom вне форума   Ответить с цитированием
Старый 03.06.2014, 02:49    | »»» |  #4
frdn
экс-Дилер
 
Аватар для frdn
 
Регистрация: 19.12.2010
Сообщений: 2,113
frdn is on a distinguished road
По умолчанию

4ynaka6pa, дык, в программе же есть такая функция: Параметры -> Операции -> Удалять файлы старше ....

ООО "ГУГОЛ", Красноярск, Красноярский край, Российская Федерация
Фроленков Дмитрий Николаевич, ПРЕЗИДЕНТ СОВЕТА ДИРЕКТОРОВ – ГУГОЛ ГК
frdn вне форума   Ответить с цитированием
Старый 03.06.2014, 04:43    | »»» |  #5
plex
Дилер
 
Аватар для plex
 
Екатеринбург, ЗАО "Седьмая Экспедиция"
Регистрация: 14.12.2010
Сообщений: 14,952
plex is on a distinguished road
Отправить сообщение для plex с помощью ICQ Отправить сообщение для plex с помощью Skype™
По умолчанию

Сообщение от frdn Посмотреть сообщение
4ynaka6pa, дык, в программе же есть такая функция: Параметры -> Операции -> Удалять файлы старше ....
Там только до года, ему больше хочется

ЗАО "Седьмая Экспедиция", Екатеринбург, РФ
Мушин Виктор Валерьевич, Технический директор
plex вне форума   Ответить с цитированием
Старый 03.06.2014, 08:20    | »»» |  #6
Zlataner
Начинающий
 
Аватар для Zlataner
 
Челябинск
Регистрация: 22.10.2013
Сообщений: 37
Zlataner is on a distinguished road
По умолчанию

На VBS это делается так:
Код:
' Удаление старых данных АвтоГРАФ
' Путь к данным АвтоГРАФ
Dim agData
agData = "D:\АвтоГРАФ\Data"
' Сколько данных оставить (число лет)
Dim agSafe
agSafe = 3
Dim fsoHandle, fsoData, fsoFolders, fsoFolder, fsoFiles, fsoFile
Dim curDate, curDay, curMonth, curYear, minDate
Set fsoHandle = CreateObject("Scripting.FileSystemObject")
If fsoHandle.FolderExists(agData) Then
   curDate  = Date()
   curDay   = Day(curDate)
   curMonth = Month(curDate)
   curYear  = (Year(curDate) Mod 100)-agSafe
   If curDay<10 Then
      curDay = "0" & curDay
   End If
   If curMonth<10 Then
      curMonth = "0" & curMonth
   End If
   If curYear<10 Then
      curYear = "0" & curYear
   End If
   minDate = curYear & curMonth & curDay
   Set fsoData    = fsoHandle.GetFolder(agData)
   Set fsoFolders = fsoData.SubFolders
   For Each fsoFolder In fsoFolders
      Set fsoFiles = fsoFolder.Files
      For Each fsoFile In fsoFiles
         If Mid(fsoFile.Name,1,8)=fsoFolder.Name & "-" And _
            Mid(fsoFile.Name,9,6)<minDate And _
            Mid(fsoFile.Name,15,5)=".sbin" Then
            fsoFile.Delete
         End If
      Next
   Next
End If
Zlataner вне форума   Ответить с цитированием
Старый 03.06.2014, 19:17    | »»» |  #7
4ynaka6pa
Дилер
 
Аватар для 4ynaka6pa
 
Липецк, ООО "Черкизово-Растениеводство"
Регистрация: 19.03.2012
Сообщений: 795
4ynaka6pa is on a distinguished road
По умолчанию

Сообщение от plex Посмотреть сообщение
Там только до года, ему больше хочется

у нас иногда и данные 2-ух летней давности поднимать приходится, потому удалять все, что старше года не получится, а оставлять все, уж очень длинная портянка получается.

Добавлено через 57 секунд
Сообщение от Phantom Посмотреть сообщение
forfiles
папробуем, пасиб

ОАО "Липецкмясо" / ГК "НАПКО", г. Липецк
Непрокин Александр Викторович, инженер-программист
4ynaka6pa вне форума   Ответить с цитированием
Старый 12.06.2014, 21:33    | »»» |  #8
4ynaka6pa
Дилер
 
Аватар для 4ynaka6pa
 
Липецк, ООО "Черкизово-Растениеводство"
Регистрация: 19.03.2012
Сообщений: 795
4ynaka6pa is on a distinguished road
По умолчанию

Сообщение от Phantom Посмотреть сообщение
forfiles Вам поможет
не очень помог, особенно когда у тебя не 1 АГ клиент установленный на ПК в разных регионах страны.
удобней было бы в если все таки АГ реализовать.

ОАО "Липецкмясо" / ГК "НАПКО", г. Липецк
Непрокин Александр Викторович, инженер-программист
4ynaka6pa вне форума   Ответить с цитированием
Сказал «Я - ЗА»:
SK (15.06.2014)
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 19:28. Часовой пояс GMT.


Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot