Open latest ini file in notepad

[Mecano]

Hallo AutoIt lovers

I have a piece of software that makes temp ini files in the TempDir, ( sometimes there are 20 tmp.ini files)

the AutoIt script has to open the latest made ini file in Notepad.

I came up with this one:

Global $Search, $sLastFound = "", $sFound = ""
$Search = FileFindFirstFile(@TempDir & "*.ini")
If $Search = -1 Then
    MsgBox(16, "Error", "No tmp.ini files found in " & @TempDir)
Exit
EndIf
While 1
    $sFound = FileFindNextFile($Search)
    If @error Then ExitLoop
    $sLastFound = $sFound
WEnd

ShellExecute("notepad.exe", @TempDir & "" & $sLastFound)

Is there any control that i know that really the latest ini is opened in notepad?

Edited March 29, 2012 by Mecano

[Melba23]

Mecano,

It is much easier to use the _FileListToArray function than to fiddle around with the FileFindFirst/NextFile pair. Then you can loop through the returned files very easily like this:

#include <File.au3>

; Get a list of .ini files
$aList = _FileListToArray(@TempDir, "*.ini", 1)

; Are there any files?
If @error then
    MsgBox(0, "Error", "No ini files found")
Else
    ; Set a dummy date
    $sLatest = 19991231000000
    $iIndex = 0
    ; Loop through the found files
    For $i = 1 To $aList[0]
        ; Get the date
        $sDTG = FileGetTime(@TempDir & "" & $aList[$i], 0, 1)
        If @error Then
            MsgBox(0, "Error", "Cannot read the date for " & $aList[$i])
        Else
            ; Compare to latest so far
            If $sDTG > $sLatest Then
                ; Set new latest
                $sLatest = $sDTG
                $iIndex = $i
            EndIf
        EndIf
    Next

    ; Did we find something?
    If $iIndex Then
        MsgBox(0, "Latest", $aList[$iIndex])
    Else
        MsgBox(0, "Error", "Nothing found")
    EndIf
EndIf

Please ask if anything is unclear.

M23

[Mecano]

@Melba23 thanx for your answer

this is really a wow effect

is this the good way to open the found ini file in Notepad?

; Did we find something?
    If $iIndex Then
        ;MsgBox(0, "Latest", $aList[$iIndex])
        ShellExecute("notepad.exe", @TempDir & "" & $aList[$iIndex])
    Else
        MsgBox(0, "Error", "Nothing found")
    EndIf

thanks in advance

Edited March 29, 2012 by Mecano

[Melba23]

Mecano,

Apologies for not replying sooner - I missed the thread update.

If you want to use ShellExecute then you use the filename as the first parameter and let Windows open it in the editor associated with .ini files:

ShellExecute(@TempDir & "" & $aList[$iIndex], @TempDir & "")

Alternatively you can use Run to force the editor of your choice:

Run('notepad.exe "' & @TempDir & '' & $aList[$iIndex] & '"')

Note the mix of single and double quotes - I have put the filename in double quotes in case you have spaces in the path. If you do not you can remove them.

M23

[jdelaney]

Why open it at all, why not just read it, and make any changes, or store any settings needed?

[Mecano]

@Melba23

Noprob,

Thank you for this clear explanation ... me happy

@jdelaney

They are tmp.ini just to check, whats written and than close

This is just fine

Thank you all