Private Sub AddToRecentList(ByVal strFilename As String)
  ' Eintrag der Liste der zuletzt geöffneten
  ' Dokumenten hinzufügen
 
  Dim I As Integer
  Dim bExists As Boolean
 
  ReDim arrFiles(intMaxFiles) As String
 
  ' Einträge um eine Position versetzt einlesen
  For I = intMaxFiles - 1 To 1 Step -1
    arrFiles(I + 1) = GetSetting(RegAppName, _
      RegAppSection, CStr(I), "")
    If arrFiles(i + 1) = sFilename Then bExists = True
  Next I  
  If bexists Then Exit Sub
 
  ' Erster Eintrag = zuletzt geöffnetes Dokument
  arrFiles(1) = strFilename
 
  ' Alle Einträge wieder speichern
  For I = 1 To intMaxFiles
    SaveSetting RegAppName, RegAppSection, _
      CStr(I), arrFiles(I)
  Next I
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de