Как заставить программу открывать следующий\предыдущий файл?

[Savol]

Как заставить программу открывать следующий\предыдущий файл?
Например, программа-просмотрщик изображений: при нажатии на кнопку, или каком-то другом действии со стороны пользователя нужно чтобы программа меняла Image1.Picture на следующий или предыдущий файл в директории.

[Александр Андреев]

Заведи массив, в который закачивай все имена файлов из текущей директории. А данные для закачки можно получить, воспользовавшись вот этими функциями:

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

Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Детали в MSDN