- Offizieller Beitrag
So, ich habe jetzt mal ein paar Fehler beseitigt. Jetzt findet das Script auch Dateien. Nun kommt es aber darauf an, wie Deine Dateien heißen und was Du in die Suchfelder eingibst.
Spoiler anzeigen
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=d:\eigene dateien\form1.kxf
Global $search
$Form1_1 = GUICreate("King-Blade´s MovieSearcher", 780, 447, 196, 157)
GUISetBkColor(0x3D95FF)
$Serienname = GUICtrlCreateInput("Serienname", 16, 8, 161, 21)
$Folgennummer = GUICtrlCreateInput("Folgennummer", 16, 104, 161, 21)
$Ordner = GUICtrlCreateButton("Ordner", 8, 168, 89, 25, 0)
$List1 = GUICtrlCreateList("", 344, 8, 185, 240)
GUICtrlSetData(-1, "Beschreibung:")
GUICtrlSetBkColor(-1, 0x9DB9EB)
$Skins = GUICtrlCreateButton("Skins", 592, 352, 121, 25, 0)
$Pic1 = GUICtrlCreatePic(@scriptdir & "\sucher 01.jpg", 0, 0, 185, 185, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\kingblade.JPG", 536, 232, 241, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Avi1 = GUICtrlCreateAvi("No File", -1, 536, 8, 241, 177)
$List2 = GUICtrlCreateList("", 192, 8, 145, 175)
GUICtrlSetBkColor(-1, 0x9DB9EB)
$Pic3 = GUICtrlCreatePic(@scriptdir & "\logo.JPG", 8, 192, 321, 241, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Entwickelt = GUICtrlCreateLabel("Entwickelt", 376, 280, 122, 37)
GUICtrlSetFont(-1, 20, 800, 2, "Monotype Corsiva")
$bei = GUICtrlCreateLabel("bei", 416, 336, 34, 37)
GUICtrlSetFont(-1, 20, 800, 2, "Monotype Corsiva")
$Nismo = GUICtrlCreateLabel("Nismo", 400, 392, 72, 37)
GUICtrlSetFont(-1, 20, 800, 2, "Monotype Corsiva")
$Suchen = GUICtrlCreateButton("Suchen", 104, 168, 81, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$nicht = "Ich konnte die gewünschte Datei nicht finden"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Ordner
$path = FileSelectFolder ("Hallo, Bitte gehe zu dem Ordner der Durchsucht werden soll", "")
If StringRight($path, 1) <> "\" Then $path &= "\"
Case $Suchen
$search = FileFindFirstFile ($path & GUICtrlRead($Serienname) & GUICtrlRead($Folgennummer) & "*.*")
If $search = -1 then
MsgBox (0, "Error, fehlerhafter Wunsch", $nicht)
Else
While 1
$Datei = FileFindNextFile($search)
If $Datei = "" then ExitLoop
GUICtrlSetData($List2, $Datei)
WEnd
FileClose($search)
EndIf
EndSwitch
WEnd