Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA) As Long
FindNextFile продолжает поиск файла, начатый FindFirstFile.
Пример использования функции смотри в FindFirstFile