Следующий открываемый файл

[GUIMish]

Здравствуйте, я сделал так, когда ты нажимаешь на кнопку $O открываешь картинку, он вносит url в $File1, как-бы мне сделать так чтобы, когда нажимаешь на $N, чтобы он вносил в $File2, url следующей картинки, которая находиться в папке с открытой картинкой!
А когда нажимаешь $B то чтобы он вносил в $File2, url предыдущей картинки!

$Window = GUICreate("Окно", 300, 120, -1, -1, 0x00040000)

$File1 = GUICtrlCreateInput("", 10, 10, 275)
$File2 = GUICtrlCreateInput("", 10, 70, 275)

$B = GUICtrlCreateButton("<", 115, 40, 20, 20)
$O = GUICtrlCreateButton("^", 135, 40, 20, 20)
$N = GUICtrlCreateButton(">", 155, 40, 20, 20)

GUISetState()
While 1
   Switch GUIGetMsg()
	  Case -3
		 ExitLoop
	  Case $O
		 $File = FileOpenDialog ("Открыть", "", "Изображения (*.jpg; *.png; *.gif)", 1)
		 GUICtrlSetData($File1, $File)
   EndSwitch
WEnd

 

[WSWR]

GUIMish

#include <Array.au3>
#include <FileOperations.au3>

$Window = GUICreate("Окно", 300, 120, -1, -1, 0x00040000)

$File1 = GUICtrlCreateInput("", 10, 10, 275)
$File2 = GUICtrlCreateInput("", 10, 70, 275)

$B = GUICtrlCreateButton("<", 115, 40, 20, 20)
$O = GUICtrlCreateButton("^", 135, 40, 20, 20)
$N = GUICtrlCreateButton(">", 155, 40, 20, 20)

Global $k = 0
Global $sPath = ''
Dim $aFileList

GUISetState()
While 1
	Switch GUIGetMsg()
		Case -3
			ExitLoop
		Case $O
			$File = FileOpenDialog("Открыть", "", "Изображения (*.jpg; *.png; *.gif)", 1)
			GUICtrlSetData($File1, $File)

			$aPath = _FO_PathSplit($File)
			If $aPath[0] <> $sPath Then $aFileList = _FO_FileSearch($aPath[0], '*.jpg|*.png|*.gif')
			$k = _ArraySearch($aFileList, $File)
			$sPath = $aPath[0]

		Case $B
			If $k > 1 Then GUICtrlSetData($File2, $aFileList[$k - 1])
		Case $N
			If $k < UBound($aFileList) - 1 Then GUICtrlSetData($File2, $aFileList[$k + 1])
	EndSwitch
WEnd

http://autoit-script.ru/index.php?topic=14598.0

 

[GUIMish]

WSWR: ОГРОМНОЕ СПАСИБО!