Help with displaying Arrays

[ksmith247]

The following code is used to check for the existence of a particular file on a server share. If I use an Inputbox instead of GUICreate it works but it closes after each run. I figured I would do it properly so I could search for several files without having to relaunch the script each time. It sort of works but what happens is I get a complete list of all files (around 5000 of them) then the whittled down list that I am asking for after closing the first full list. Also the whittled down list continues to display itself instead of closing. I have to kill the script from the SysTray. Any help appreciated as always.

#include <File.au3>
#include <Array.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>

$Server = "\\SERVER\SHARE\"
;$List = _FileListToArray($Server, $CompName & "*")

#Region ### START Koda GUI section ### 
;RecKey.kxf
$Form1 = GUICreate("Search for Recovery Key", 251, 129, 393, 303)
$Label1 = GUICtrlCreateLabel("Enter Computer Name", 72, 16, 108, 17)
$Input1 = GUICtrlCreateInput("", 56, 48, 137, 21)
$Button1 = GUICtrlCreateButton("Search", 88, 88, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    $CompName = GUICtrlRead($Input1)
    $List = _FileListToArray($Server, $CompName & "*")
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nMsg = $Button1
            If @error <> 0 Then
                MsgBox(0, "No Key", "No Recovery Key found for " & $CompName & ".")
                Exit
            EndIf
            _ArrayDisplay($List)
            ;Exit
    EndSwitch
WEnd

[Zedna]

#include <File.au3>
#include <Array.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>

$Server = "\\SERVER\SHARE\"
;$List = _FileListToArray($Server, $CompName & "*")

#Region ### START Koda GUI section ### 
;RecKey.kxf
$Form1 = GUICreate("Search for Recovery Key", 251, 129, 393, 303)
$Label1 = GUICtrlCreateLabel("Enter Computer Name", 72, 16, 108, 17)
$Input1 = GUICtrlCreateInput("", 56, 48, 137, 21)
$Button1 = GUICtrlCreateButton("Search", 88, 88, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nMsg = $Button1
            $CompName = GUICtrlRead($Input1)
    $List = _FileListToArray($Server, $CompName & "*")
    If @error <> 0 Then
                MsgBox(0, "No Key", "No Recovery Key found for " & $CompName & ".")
                ContinueLoop
            EndIf
            _ArrayDisplay($List)
            ;Exit
    EndSwitch
WEnd

[weaponx]

It is bad practice to call a function inside your GUI loop (filelisttoarray) without requiring user interaction first. This loop needs to be fast for your GUI to respond in a timely fashion.

[ksmith247]

<br />It is bad practice to call a function inside your GUI loop (filelisttoarray) without requiring user interaction first. This loop needs to be fast for your GUI to respond in a timely fashion.<br />

<br /><br /><br />

So what would be proper?

[weaponx]

<br /><br /><br />

So what would be proper?

Zedna posted a proper solution.

[ksmith247]

Ahh... not sure who you were talking too. Thanks.

[ksmith247]

Nevermind. Changed Switch to Select and all is well. Guess I need to read up on those.

Edited July 7, 2008 by ksmith247