Private Sub btn_logfile_Click()
  Dim I As Integer
  Dim F As Integer
  Dim curSize As Currency
 
  <font color=green>' Log-File erstellen</font>
  F = FreeFile
  Open App.Path & Format$(Now, "dd-mm-yyyy") & ".txt" For Output As #F
 
  With List_dir
    For I = 0 To .ListCount - 1
      <font color=green>' Ordnergröße schreiben</font>
      curSize = GetFolderSize(.List(I))
      Print #F, CStr(curSize)
    Next I
  End With
 
  Close #F
End Sub