Private Structure myFileInfo
        Public Name As String           'dateinamen ohne pfad
        Public Folder As String         'pfad der datei
        Public Size As Integer          'datei-größe
        Public Datum As Date            'erstellungsdatum
        Public Version As String        'dateiversion
    End Structure
 
    Private local As New List(Of myFileInfo)
 
Private Sub GetFileInfos(ByVal Folder As String)
        'alle dateien dieses ordners sammeln
        For Each f As String In Directory.GetFiles(Folder)
            Dim fi As New IO.FileInfo(f)
            Dim mfi As New myFileInfo
            mfi.Datum = fi.LastWriteTime
            Dim temp As String = f.Replace(_appfolder, "")
            If temp.Substring(0, 1) = Path.DirectorySeparatorChar.ToString Then
                mfi.Folder = temp.Substring(1)
            Else
                mfi.Folder = temp
            End If
            mfi.Name = fi.Name
            mfi.Size = fi.Length
            Try
                mfi.Version = FileVersionInfo.GetVersionInfo( _
                  f).FileVersion.ToString
            Catch ex As Exception
                mfi.Version = ""
            End Try
            local.Add(mfi)
            mfi = Nothing
            fi = Nothing
        Next
        'alle unterverzeichnisse durchlaufen
        For Each d As String In Directory.GetDirectories(Folder)
            GetFileInfos(d)
        Next
    End Sub