Dim Dateien() As String = Directory.GetFiles(Quellordner, "*.*", _
    SearchOption.AllDirectories)

  Dim Variable0815 as string
  for each Datei As String in Dateien
    Variable0815 = filelen(Datei) & filedatetime(Datei)
  next

  Dim Ordner As New System.IO.DirectoryInfo("Quellordner")
  Dim Dateien As System.IO.FileInfo() = Ordner.GetFiles("*.*", _
    SearchOption.AllDirectories)
  Dim Variable0815 As String
 
  For Each Datei As System.IO.FileInfo In Dateien
    Variable0815 = Datei.Length & Datei.LastWriteTime
  Next