If (GetAttr(sDirName) And vbDirectory) = vbDirectory Then

Pfad1 = si_pfad   ' Pfad setzen.
name1 = Dir(Pfad1, vbDirectory)   ' Ersten Eintrag abrufen.
Do While name1 <> ""   ' Schleife beginnen.
   ' Aktuelles und übergeordnetes Verzeichnis ignorieren.
   If name1 <> "." And name1 <> ".." Then
      ' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
      ' Verzeichnis ist.
      If (GetAttr(Pfad1 & name1) And vbDirectory) = vbDirectory Then
            If Left$(name1, 6) = "Sirius" Then
                List1.AddItem name1
            End If   ' Eintrag nur anzeigen, wenn es sich
      End If   ' um ein Verzeichnis handelt.
   End If
   name1 = Dir   ' Nächsten Eintrag abrufen.
Loop