Dim cur_file As String

Private Sub CommandFirst_Click()
  cur_file = Dir("C:\Documents and Settings\All Users\Application Data\MyProga\Image\*.jpg", vbNormal)
  Debug.Print cur_file
End Sub

Private Sub CommandNext_Click()
  cur_file = Dir()
  If cur_file = "" Then
    CommandFirst_Click
  Else
    Debug.Print cur_file
  End If
End Sub

"C:\Documents and Settings\All Users\Application Data\MyProga\Image\*.jpg"

Option Explicit

Dim cur_file As String
'

Private Sub Timer1_Timer()
  cur_file = GetNextFile(GetFileDir("C:\Documents and Settings\All Users\Application Data\Proga\Image\proga_1.JPG"), _
   GetFileName(cur_file))
  Debug.Print cur_file
  Picture1.Picture = LoadPicture(cur_file)
End Sub

Public Function GetNextFile(ByVal folder_path As String, _
 Optional ByVal file_before As String = "") As String
 
  Dim file_first_name As String 'первый файл
  Dim file_cur_name As String 'тек. файл
  Dim cur_dir As String
  Dim use_next As Boolean 'если true,то следующий прошедший проверку наш
  Dim i As Long
    
  cur_dir = CorrectDir(folder_path)
  If file_before = "" Then use_next = True
  
  For i = 0 To 1
    file_first_name = Dir(cur_dir & "*.*", vbNormal)
    If file_first_name = "" Then 'нет файлов
      GetNextFile = ""
      Exit Function
    ElseIf use_next Then
      If IsValidFile(cur_dir & file_first_name) Then
        GetNextFile = cur_dir & file_first_name
        Exit Function
      End If
    ElseIf file_first_name = file_before Then
      use_next = True
    End If
      
    Do
      'цикл по-любому выйдет, когда файлы закончатся
      file_cur_name = Dir()
      If file_cur_name = "" Then 'больше нет файлов
        'при неправильно заданном file_before, или если file_before-последний,
        'то ставим флаг use_next и проходимся по файлам еще раз с начала
        'если валидных файлов вообще нет, то здесь будет выход из ф-ции
        'и возврат пустой строки
        use_next = True
        Exit Do
      ElseIf use_next Then
        If IsValidFile(cur_dir & file_cur_name) Then
          GetNextFile = cur_dir & file_cur_name
          Exit Function
        End If
      ElseIf file_cur_name = file_before Then
        use_next = True
      End If
    Loop
  Next i
  GetNextFile = ""
End Function

Public Function IsValidFile(ByVal file_path As String) As Boolean
  Dim file_ext As String
  IsValidFile = True
  file_ext = GetFileExtensionU(file_path)
  If (file_ext <> "JPG") And (file_ext <> "BMP") And (file_ext <> "GIF") Then
    IsValidFile = False
    Exit Function
  End If
  
  Dim m_mfi_picture As New cMultiFrameImage
  Dim X_size As Long, Y_size As Long
  m_mfi_picture.LoadFromFile file_path
  X_size = m_mfi_picture.FrameWidth
  Y_size = m_mfi_picture.FrameHeight
  Set m_mfi_picture = Nothing
  'если это не валидная GDI-картинка, то размеры будут нулевые
  'отсеиваем, чтоб размер картинки был не меньше заданной
  If (X_size < 440) Or (Y_size < 400) Then
    IsValidFile = False
    Exit Function
  End If
End Function

cur_file = Dir(sPath)

if len(dir(path_to_file,vbnormal))>0 then

  Do
     filename=dir(path/*.ext)>0
     if filename="" then exit do
     read (filename)...
     delete filename
  Loop