Bild per zufall auswählen?

[autoit]

#include <File.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$pfad = FileSelectFolder("Bitte Bildpfad wählen", @MyDocumentsDir)
$bilder = _FileListToArray($pfad, "*.jpg")
$bildakt = 0

[/autoit] [autoit][/autoit] [autoit]

$gui = GUICreate("", 500, 330)
$gPic = GUICtrlCreatePic("", 0, 0, 521, 305, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState($gPic, $GUI_DISABLE)
$gButton = GUICtrlCreateButton("", 0, 300, 500, 30)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $gButton
Do
$rnd = Random(1, $bilder[0], 1)
Until $rnd <> $bildakt
$bildakt = $rnd
GUICtrlSetImage($gPic, $pfad & "\" & $bilder[$bildakt])
EndSwitch
WEnd

[/autoit]