Работа с файлами

[Shurik90]

Возникла проблема в работе с файлами. Я строю небольшой просмотрщик картинок, т.е. в определённой папке у меня лежат картинки и я их просматриваю кнопками "Вперёд" и "Назад". Код для кнопки "Вперёд" выглядит так:

Код: Выделить всё

If sFileName <> "" Then
   
  Set f = FSys.GetFile(App.Path & "\Pictures\" & sFileName)
  myPic.Picture = LoadPicture(App.Path&"\Pictures\"&sFileName) 
  sFileName = Dir$
   
End If


В Form_Load, я задаю деректорию:

Код: Выделить всё

     sFileName = Dir$(App.Path & "\Pictures\")


Вопрос: а как сделать кнопку "Назад", т.е. можно ли и как в работе с Dir$ вернуться к предыдущему файлу.

Заранее спасибо за помощь !

[SSecurity]

Привет ....

Лично я думаю мудрить не надо, и самое просто что я вижу здесь - внести имя файла в массив (размерность задается исходя из кол-ва картинок сам знаешь как )) ) а потом просто читаешь значения

Может я и не прав но по мне так проще

[kif]

Я бы использовал FileListBox там все просто и элементы можно перебирать как впереж так и назад изменяя List(i)

[Shurik90]

Так и сделал, я имею ввиду ListBox. Большое спасибо.