Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
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)
Это сообщение посчитали полезным следующие участники:

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