madmasles
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LaVas_ki,
Попробуйте так
Код: #include <File.au3>
#include <Array.au3>
$sFolder = @DesktopDir
$aFile_Temp = _FileListToArray($sFolder, '*', 1)
If Not @error Then
Dim $aFile[$aFile_Temp[0] + 1][2] = [[$aFile_Temp[0]]]
For $i = 1 To $aFile[0][0]
$aFile[$i][0] = $aFile_Temp[$i]
$aFile[$i][1] = FileGetTime($sFolder & '\' & $aFile[$i][0], 1, 1) ;создание
Next
_ArrayDisplay($aFile, 'Не сортирован')
_ArraySort($aFile, 0, 1, 0, 1)
_ArrayDisplay($aFile, 'Cортирован')
Else
MsgBox(16, 'Error', @error)
EndIf |
Или так.
Код: #include <File.au3>
$sFolder = @DesktopDir
$iTime = 0
$iTimeLatest = 0
$iIndex = 0
$iOptionTime = 1 ;время: 0 - последней модификации, 1 - создания.
$aFile_Temp = _FileListToArray($sFolder, '*', 1)
If Not @error Then
For $i = 1 To $aFile_Temp[0]
$iTime = FileGetTime($sFolder & '\' & $aFile_Temp[$i], $iOptionTime, 1)
If $iTimeLatest < $iTime Then
$iTimeLatest = $iTime
$iIndex = $i
EndIf
Next
If $iIndex Then
MsgBox(64, 'The youngest file', 'Folder: ' & $sFolder & @CRLF & 'File: ' & $aFile_Temp[$iIndex] & @CRLF & _
'Date: ' & StringRegExpReplace($iTimeLatest, '^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$', _
'$3/$2/$1 $4:$5:$6'))
Else
MsgBox(16, 'Error', 'Error')
EndIf
Else
MsgBox(16, 'Error', @error)
EndIf |
|
Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 14:06 30-07-2011 | Исправлено: madmasles, 17:17 30-07-2011 |
|
