Public Function GetNextFile(ByVal sPath As String) As String
  Dim sFile As String
  Dim lNumber As Long
  Dim sData() As String
 
  ' jetzt Nummer prüfen
  Do
    sFile = sPath & "A" & Format$(lNumber, "02###") & ".img"
    If Dir$(sFile) = "" Then Exit Do
      lNumber = lNumber + 1
  Loop
  sData = Split(sFile, "\")
  Label1.Caption = sData(3)
  GetNextFile = sFile
End Function
 
Private Sub Timer1_Timer()
  Dim vArray() As String
  sfilename = GetNextFile("c:\Handi\Ang\")
  vArray = Split(sfilename, ".")
  Label1.Caption = vArray(0)
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.