Dim nIndex As Long
Dim sFile As String
Dim sPath As String
 
' Verzeichnis, in dem die RTF-Dateien abgelegt werden
sPath = App.Path
If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
 
' Verzeichnis nach .rtf-Dateien durchsuchen
sFile = Dir$(sPath & "*.rtf")
Do Until sFile = ""
  If sFile <> "." And sFile <> ".." Then
    If Val(Left$(sFile, Len(sFile) - 4)) > nIndex Then
      nIndex = Val(Left$(sFile, Len(sFile) - 4))
    End If
  End If
  sFile = Dir$
Loop
 
' nächste Nummer:
nIndex = nIndex + 1
 
' nächster Dateiname
sFile = CStr(nIndex) & ".rtf"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de