Dim I As Integer
Dim F As Integer
 
F = FreeFile
Open "Logfile.txt" For Output As #F
 
With List1
  For I = 0 To .ListCount - 1
    <font color=green>' Ordnergröße ermitteln</font>
    ...
 
    <font color=green>' Eintrag speichern</font>
    Print #F, .List(I) & ", Größe " & CStr(lnSize)
  Next I
End With
Close #F