|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » периодическое удаление папок |
|
периодическое удаление папок
|
Новый участник Сообщения: 6 |
Есть видеосервер, на котором видео каждый день записывается в новую папку. Через н-дней нужно удалять самую старую из них. Как это осуществить на AutoIt ?
|
|
Отправлено: 15:48, 23-06-2010 |
Старожил Сообщения: 307
|
Профиль | Отправить PM | Цитировать Цитата silence:
#include <array.au3> #Include <File.au3> Global $sYear=3000 ;берем нереальный год, если в директории есть хоть одна папка, то при первой же проверке, этот год будет сменен на реальный. Global $sMon=12 Global $sDay=31 Global $OldFolder="" $sRoot = @DesktopDir $aDIR = _FileListToArray($sRoot, '*', 2) if isarray($aDIR) then For $i=1 to $aDIR[0] $aCreateTime = FileGetTime($sRoot & "\"&$aDIR[$i]) if $sYear>$aCreateTime[0] then $sYear=$aCreateTime[0] $OldFolder=$aDIR[$i] ContinueLoop endif if $sMon>$aCreateTime[1] then $sMon=$aCreateTime[1] $OldFolder=$aDIR[$i] ContinueLoop endif if $sDay>$aCreateTime[2] then $sDay=$aCreateTime[2] $OldFolder=$aDIR[$i] ContinueLoop endif Next Endif If FileExists($sRoot&"\"&$OldFolder) Then MsgBox(4096, "Директория: "&$sRoot, "Эту папку следует удалить, как созданную раньше всех других в этой директории: "&$sRoot&"\"&$OldFolder) ;DirRemove($sRoot&"\"&$OldFolder, 1) ;Осторожно!!! данная функция удалит всю папку из файлами (название папки отображается в msgbox) endif Цитата silence:
P.S. В переменной $sRoot храниться путь к папке, в которой находятся ваши подпапки с видеофайлами. |
||
------- Отправлено: 17:52, 23-06-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] удаление содержимого папок | daswer | Скриптовые языки администрирования Windows | 6 | 21-08-2013 16:19 | |
Удаление перенаправленых папок | Vitto | Microsoft Windows NT/2000/2003 | 6 | 16-10-2009 21:51 | |
CMD/BAT - [решено] Удаление папок по критериям | jentoso | Скриптовые языки администрирования Windows | 16 | 17-06-2009 11:38 | |
Установка - удаление системных папок | spellozz | Microsoft Windows Vista | 4 | 02-07-2008 22:04 | |
[решено] Удаление файлов и папок | ArGoth | Автоматическая установка Windows 2000/XP/2003 | 1 | 26-05-2008 18:03 |
|