Поиск файлов по маске, дате и времени

Iska · Отправлено: **09:59, 01-09-2017** | #2

Код:

AutoItSetOption("MustDeclareVars", 1)

Local $oFSO = ObjCreate("Scripting.FileSystemObject")
Local $oFile
Local $dtDateTime
Local $sCurrFileName


Switch @OSArch
    Case "X86"
        Global $xOS = "_"
    Case "X64"
        Global $xOS = "_x64_"
EndSwitch

$dtDateTime = "19700101010101"
$sCurrFileName = ""

For $oFile In $oFSO.GetFolder(".").Files
	If StringRegExp($oFile.Name, "PP" & $xOS & "P\d+\.exe") = 1 Then
		If StringCompare($oFile.DateLastModified, $dtDateTime) > 0 Then
			$dtDateTime = $oFile.DateLastModified
			$sCurrFileName = $oFile.Name
		EndIf
	EndIf
Next

ConsoleWrite($sCurrFileName & @TAB & $dtDateTime & @CRLF)

Exit(0)

nibble74 · Отправлено: **17:31, 01-09-2017** | #3

Спасибо Iska, супер