Dim fileDetail As IO.FileInfo
'...
        With dtFiles
            .TableName = "files"
            .Columns.Add("ID", GetType(Integer))
            .Columns.Add("FolderID", GetType(Integer))
            .Columns.Add("Filename", GetType(String))
            .Columns.Add("FileExtension", GetType(String))
            .Columns.Add("FileCreationTime", GetType(Date))
            .Columns.Add("FileLastAccessTime", GetType(Date))
            .Columns.Add("FileLastWriteTime", GetType(Date))
        End With
 
        'Filesystem-Daten in die Tabellen einlesen
        Dim folderid, fileid As Integer, subfolder As String
        For Each fld As String In
                IO.Directory.GetDirectories(basefolder, "*.*",
                  IO.SearchOption.TopDirectoryOnly)
 
            folderid += 1
            subfolder = fld.Replace(basefolder, "").Replace("\", "")
            dtFolders.Rows.Add(folderid, subfolder)
 
            For Each file As String In IO.Directory.EnumerateFiles(fld, "*.*", _
              IO.SearchOption.TopDirectoryOnly)
                fileDetail = My.Computer.FileSystem.GetFileInfo(file)
 
                fileid += 1
                    dtFiles.Rows.Add(fileid, folderid, _
                      IO.Path.GetFileNameWithoutExtension(file), _
                      IO.Path.GetExtension(file), fileDetail.CreationTime, _
                      fileDetail.LastAccessTime, fileDetail.LastWriteTime)
                Next file
        Next fld
'...