Private Sub liv_Folders_Enter(sender As Object, e As EventArgs) Handles _
      liv_Folders.Enter
        Debug.Print("Folders Enter")
        For I = 0 To liv_Folders.Items.Count - 1
            If liv_Folders.Items(I).Selected = True Then
                liv_Folders.Items.Item(I).SubItems(0).BackColor = _
                  Color.FromKnownColor(KnownColor.Window)
                liv_Folders.Items.Item(I).SubItems(0).ForeColor = _
                Color.FromKnownColor(KnownColor.WindowText)
            End If
        Next
    End Sub
 
    Private Sub liv_Folders_Leave(sender As Object, e As EventArgs) Handles _
      liv_Folders.Leave
        Debug.Print("Folders Leave")
    End Sub
    Private Sub liv_Folders_Validated(sender As Object, e As EventArgs) Handles _
      liv_Folders.Validated
        Debug.Print("Folders Validated")
        For I = 0 To liv_Folders.Items.Count - 1
            If liv_Folders.Items(I).Selected = True Then
                liv_Folders.Items.Item(I).SubItems(0).BackColor = _
                  Color.FromKnownColor(KnownColor.Red) 'Highlight
                liv_Folders.Items.Item(I).SubItems(0).ForeColor = _
                Color.FromKnownColor(KnownColor.Yellow) 'HighlightText
            End If
        Next
    End Sub

 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
        For I = 0 To liv_Folders.Items.Count - 1
            If liv_Folders.Items(I).Selected = True Then
                liv_Folders.Items.Item(I).SubItems(0).BackColor = _
                  Color.FromKnownColor(KnownColor.Red) 'Highlight
                liv_Folders.Items.Item(I).SubItems(0).ForeColor = _
                Color.FromKnownColor(KnownColor.Yellow) 'HighlightText
            End If
        Next
End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        My.Settings.FoldersIndex = liv_Folders.SelectedItems(0).Index
        liv_Folders.SelectedItems.Clear()
 
        liv_Folders.Items.Item(My.Settings.FoldersIndex).SubItems(0).BackColor _
          = Color.FromKnownColor(KnownColor.Red) 'Highlight
        liv_Folders.Items.Item(My.Settings.FoldersIndex).SubItems(0).ForeColor _
        = Color.FromKnownColor(KnownColor.Yellow) 'HighlightText
    End Sub

Public Class frmFoldersAndFiles
 
    Dim basefolder As String = "C:\xxxxx"  'Basisordner angeben
 
    Dim dtFolders, dtFiles As DataTable
    Dim bsFolders, bsFiles As New BindingSource
    Dim WithEvents dgvFolders, dgvFiles As New DataGridView
    Dim dsFoldersFiles As DataSet
 
    Dim tboFileContent As New TextBox With
        {.Parent = Me, .Left = 10, .Top = 320, .Height = 150, .Width = 600,
        .Multiline = True}
 
 
    Private Sub frmFoldersAndFiles_Load(sender As Object,
                                        e As EventArgs) Handles MyBase.Load
 
        Me.FormBorderStyle = FormBorderStyle.Fixed3D
        Me.Size = New Size(700, 560)
 
        With dgvFolders
            .Size = New Size(300, 300)
            .Location = New Point(10, 10)
            .DataSource = bsFolders
            .Parent = Me
        End With
        With dgvFiles
            .Size = dgvFolders.Size
            .Location = New Point(320, 10)
            .DataSource = bsFiles
            .Parent = Me
        End With
 
        Me.Show()
 
        CreateFilesAndFolders()
    End Sub
 
 
    Private Sub dgvFiles_RowHeaderMouseClick(sender As Object,
          e As DataGridViewCellMouseEventArgs) Handles _
            dgvFiles.RowHeaderMouseClick
 
        'Anzeige einer Textdatei beim Click auf den Zeilenkopf des Grid mit 
        ' Dateien
        '(kann man besser machen)
 
        Dim row As DataGridViewRow = dgvFiles.Rows.Item(e.RowIndex)
        Dim folderid As Integer = CInt(row.Cells("FolderID").Value)
 
        Dim foldername As String =
            dgvFolders.Rows.Item(folderid - 1).Cells("Subfolder").Value.ToString
        Dim filename As String =
            IO.Path.Combine(basefolder, foldername, row.Cells( _
              "Filename").Value.ToString)
 
        Try
            tboFileContent.Text = IO.File.ReadAllText(filename)
            Me.Text = IO.Path.GetFileName(filename)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
 
    Private Function CreateFilesAndFolders()
 
        dtFiles = New DataTable : dtFolders = New DataTable
 
        'Tabellenspalten erstellen
        With dtFolders
            .TableName = "folders"
            .Columns.Add("ID", GetType(Integer))
            .Columns.Add("Subfolder", GetType(String))
        End With
 
        With dtFiles
            .TableName = "files"
            .Columns.Add("ID", GetType(Integer))
            .Columns.Add("FolderID", GetType(Integer))
            .Columns.Add("Filename", GetType(String))
        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)
 
                fileid += 1
                dtFiles.Rows.Add(fileid, folderid, IO.Path.GetFileName(file))
            Next file
        Next fld
 
        'Dataset zusammenstellen
        dsFoldersFiles = New DataSet
        With dsFoldersFiles.Tables
            .Add(dtFolders)
            .Add(dtFiles)
        End With
 
        'Datarelation für Master->Child
        Dim pc As DataColumn = dtFolders.Columns("ID")
        Dim cc As DataColumn = dtFiles.Columns("FolderID")
        dsFoldersFiles.Relations.Add("FoldersFiles", pc, cc)
 
        'Parent-Child-Koordination
        bsFolders.DataSource = dsFoldersFiles
        bsFolders.DataMember = "Folders"
 
        bsFiles.DataMember = "FoldersFiles"
        bsFiles.DataSource = bsFolders
 
        'nach Belieben .....
        dgvFolders.Columns("ID").Visible = False
        dgvFiles.Columns("FolderID").Visible = False
    End Function
End Class

Private Sub dgvFiles_RowHeaderMouseClick(sender As Object,
          e As DataGridViewCellMouseEventArgs) Handles _
            dgvFiles.RowHeaderMouseClick
 
        'Anzeige einer Textdatei beim Click auf einen Zeilenkopf im Grid mit 
        'den Dateinamen
 
        'an GridView gebundene Bindingsource
        Dim rowview As DataRowView = bsFiles(e.RowIndex)
 
        'Datarelation verwenden
        'Datarowview weist die Datarow der gebundenen Tabelle (row-Eigenschaft)  
        Dim parentrow = rowview.Row.GetParentRow("FoldersFiles")
        Dim subfoldername As String = parentrow("Subfolder")
 
        'Den kompletten Pfad der Datei zusammenstellen
        Dim filename As String = IO.Path.Combine(basefolder, 
                                  subfoldername, rowview.Row( _
                                    "Filename").ToString)
 
        Try
            tboFileContent.Text = IO.File.ReadAllText(filename)
            Me.Text = IO.Path.GetFileName(filename)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
End Sub

    Private Sub liv_Folders_ItemSelectionChanged(sender As Object, e As _
      ListViewItemSelectionChangedEventArgs) Handles _
      liv_Folders.ItemSelectionChanged
        For i = 0 To liv_Folders.Items.Count - 1
            liv_Folders.Items.Item(i).SubItems(0).BackColor = _
              Color.FromKnownColor(KnownColor.Window)
            liv_Folders.Items.Item(i).SubItems(0).ForeColor = _
            Color.FromKnownColor(KnownColor.WindowText)
        Next i
 
        If liv_Folders.SelectedItems.Count > 0 Then
            ' Filesliste neu laden
            foldersAuswertung(liv_Folders.SelectedItems.Count)
        End If
    End Sub

    Private Sub liv_Folders_Leave(sender As Object, e As EventArgs) Handles _
      liv_Folders.Leave
        If liv_Folders.SelectedItems.Count > 0 Then
            For i = 0 To liv_Folders.Items.Count - 1
                selFolders(i) = liv_Folders.Items(i).Selected
            Next i
        End If
        liv_Folders.SelectedItems.Clear()
        For i = 0 To liv_Folders.Items.Count - 1
            If selFolders(i) = False Then
                liv_Folders.Items.Item(i).SubItems(0).BackColor = _
                  Color.FromKnownColor(KnownColor.Window)
                liv_Folders.Items.Item(i).SubItems(0).ForeColor = _
                Color.FromKnownColor(KnownColor.WindowText)
            Else
                liv_Folders.Items.Item(i).SubItems(0).BackColor = _
                  Color.FromKnownColor(KnownColor.Red) 'Highlight
                liv_Folders.Items.Item(i).SubItems(0).ForeColor = _
                Color.FromKnownColor(KnownColor.Yellow) 'HighlightText
            End If
        Next i
    End Sub

        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
'...

 dgv_Files.Columns(0).Width = My.Settings.FilesSpaltenbreite1

    Private Function CreateFilesAndFolders()
        Dim verzeichnisListe As New List(Of String)
        Dim DateiListe As New List(Of String)
        Dim fileDetail As IO.FileInfo
        dtFiles = New DataTable : dtFolders = New DataTable
        'Tabellenspalten erstellen
        With dtFolders
            .TableName = "folders"
            .Columns.Add("ID", GetType(Integer))
            .Columns.Add("Subfolder", GetType(String))
        End With
 
        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("FileLastAccessTime", GetType(Date))
            .Columns.Add("FileLastWriteTime", GetType(Date))
            .Columns.Add("FileCreationTime", GetType(Date))
        End With
 
        'Filesystem-Daten in die Tabellen einlesen
        Dim folderid, fileid As Integer, subfolder As String
 
        'verzeichnisListe
        FindAllDirs(My.Settings.HauptPfad, "*.*", verzeichnisListe)
        For Each verzeichnis As String In verzeichnisListe
            folderid += 1
            subfolder = verzeichnis.Replace(My.Settings.HauptPfad, "").Replace( _
              "\", "")
            dtFolders.Rows.Add(folderid, subfolder)
 
            ' DateiListe
            FindAllFiles(verzeichnis, "*.*", DateiListe)
            For Each datei As String In DateiListe
                fileDetail = My.Computer.FileSystem.GetFileInfo(datei)
                fileid += 1
                dtFiles.Rows.Add(fileid, folderid, _
                  IO.Path.GetFileNameWithoutExtension(datei), _
                  IO.Path.GetExtension(datei), fileDetail.LastAccessTime, _
                  fileDetail.LastWriteTime, fileDetail.CreationTime)
            Next
        Next
 
        'Dataset zusammenstellen
        dsFoldersFiles = New DataSet
        With dsFoldersFiles.Tables
            .Add(dtFolders)
            .Add(dtFiles)
        End With
 
        'Datarelation für Master->Child
        Dim pc As DataColumn = dtFolders.Columns("ID")
        Dim cc As DataColumn = dtFiles.Columns("FolderID")
        dsFoldersFiles.Relations.Add("FoldersFiles", pc, cc)
 
        'Parent-Child-Koordination
        bsFolders.DataSource = dsFoldersFiles
        bsFolders.DataMember = "Folders"
 
        bsFiles.DataMember = "FoldersFiles"
        bsFiles.DataSource = bsFolders
 
        'nach Belieben .....
        dgv_Folders.Columns("ID").Visible = False
        dgv_Files.Columns("ID").Visible = False
        dgv_Files.Columns("FolderID").Visible = False
    End Function

    Private Sub FindAllFiles(ByVal folder As String, ByVal pattern As String, _
      ByRef files As List(Of String))
 
        Dim w32data As New WIN32_FIND_DATA
        Dim Handle As System.IntPtr = FindFirstFile(Path.Combine(folder,
          "*.*"), w32data)
        If Handle <> CType(INVALID_HANDLE_VALUE, System.IntPtr) Then
            Dim Search As Boolean = True
            Do
                'Handelt es sich um ein Verzeichnis? 
                If Not (w32data.sfileAttributes And FILE_ATTRIBUTE_DIRECTORY) =
                      FILE_ATTRIBUTE_DIRECTORY Then
                    If w32data.fileName Like pattern Then
                        files.Add(Path.Combine(folder, w32data.fileName))
                    End If
                End If
            Loop Until FindNextFile(Handle, w32data) = CType(False,
              System.IntPtr)
 
            'handle schliessen
            FindClose(Handle)
        End If
    End Sub
 
 
    Private Sub FindAllDirs(ByVal folder As String, ByVal pattern As String, _
      ByRef files As List(Of String))
 
        Dim w32data As New WIN32_FIND_DATA
        Dim Handle As System.IntPtr = FindFirstFile(Path.Combine(folder,
              "*.*"), w32data)
        If Handle <> CType(INVALID_HANDLE_VALUE, System.IntPtr) Then
            Dim Search As Boolean = True
            Do
                'Handelt es sich um ein Verzeichnis? 
                If (w32data.sfileAttributes And FILE_ATTRIBUTE_DIRECTORY) =
                          FILE_ATTRIBUTE_DIRECTORY Then
                    'Verzeichnisnamen ermitteln und für den späteren rekursiven 
                    ' Aufruf speichern 
                    If w32data.fileName <> "." And w32data.fileName <> ".." Then
                        files.Add(Path.Combine(folder, w32data.fileName))
                    End If
                End If
            Loop Until FindNextFile(Handle, w32data) = CType(False,
                  System.IntPtr)
 
            'handle schliessen
            FindClose(Handle)
        End If
    End Sub

Dim DateiListe As New List(Of String)

    dgvFolders.Columns("ID").HeaderCell.Style.BackColor = Color.Yellow

    dgv_Folders.Columns("ID").HeaderCell.Style.BackColor = Color.FromKnownColor( _
      KnownColor.ControlDark)

    Private Sub dgv_Folders_CellContentClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_Folders.CellContentClick
        Debug.Print(dtFolders.Rows(e.RowIndex)("Verzeichnis").ToString)
    End Sub

    Private Sub dgv_Files_CellContentClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_Files.CellContentClick
        Debug.Print(dtFiles.Rows(e.RowIndex)("Filename") & dtFiles.Rows( _
        e.RowIndex)("Endung").ToString)
    End Sub

Private Sub dgvFiles_RowHeaderMouseClick(sender As Object,
          e As DataGridViewCellMouseEventArgs) Handles _
            dgvFiles.RowHeaderMouseClick
 
        'Anzeige einer Textdatei beim Click auf einen Zeilenkopf im Grid mit 
        'den Dateinamen
 
        'an GridView gebundene Bindingsource
        Dim rowview As DataRowView = bsFiles(e.RowIndex)
 
        'Datarelation verwenden
        'Datarowview weist die Datarow der gebundenen Tabelle (row-Eigenschaft)  
        Dim parentrow = rowview.Row.GetParentRow("FoldersFiles")
        Dim subfoldername As String = parentrow("Subfolder")
 
        'Den kompletten Pfad der Datei zusammenstellen
        Dim filename As String = IO.Path.Combine(basefolder, 
                                  subfoldername, rowview.Row( _
                                    "Filename").ToString)
 
        Try
            tboFileContent.Text = IO.File.ReadAllText(filename)
            Me.Text = IO.Path.GetFileName(filename)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
End Sub

Dim subfoldername As String = parentrow("Subfolder")

    Private Sub dgv_Folders_CellClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_Folders.CellClick
        If e.RowIndex = bsFolders.Count - 1 Then
            ' untere leere Zeile
            ' hier soll der Inhalt der dgv_Files geleert werden
            updateStatusFields() ' Labels in der Statuszeile updaten
            OpenFile("") ' Inhalt der Textbox leeren
        End If
    End Sub
 
 
    Private Sub dgv_Folders_CellContentClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_Folders.CellContentClick
        ' gefüllte Zeile
        If dgv_Folders.SelectedRows.Count = 1 Then
            ' eine gefüllte Zeile
            ersterEintrag()
        Else
            ' mehrere gefüllte Zeilen
            ' hier soll der Inhalt der dgv_Files geleert werden
            OpenFile("") ' Inhalt der Textbox leeren
        End If
        updateStatusFields() ' Labels in der Statuszeile updaten
    End Sub
 
    Private Sub ersterEintrag()
        Dim filename As String
        If bsFolders.Count > 0 And bsFiles.Count > 0 Then
            Dim rowview As DataRowView = bsFiles(0)
            Dim parentrow = rowview.Row.GetParentRow("FoldersFiles")
            Dim subfoldername As String = parentrow("Gruppe")
            filename = IO.Path.Combine(My.Settings.HauptPfad, subfoldername, _
              rowview.Row("Dateiname").ToString & rowview.Row( _
              "Endung").ToString)
        Else
            filename = ""
        End If
        OpenFile(filename) ' Datei in Textbox anzeigen
    End Sub
 
    Private Sub updateStatusFields()
        StatusbarLabel1.Text = "Gruppen: " & _
          dgv_Folders.SelectedRows.Count.ToString & " / " & _
          bsFolders.Count.ToString
        StatusbarLabel2.Text = "Clips: " & _
        dgv_Files.SelectedRows.Count.ToString & " / " & bsFiles.Count.ToString
    End Sub

Public Class frmByteFormatting
 
    Dim bsFiles As New BindingSource
    Dim WithEvents dgvFiles As New DataGridView With {.Parent = Me, .DataSource _
      = bsFiles}
    Dim dtFiles As New DataTable
 
 
    Private Sub frmByteFormatting_Load(sender As Object, e As EventArgs) _
      Handles MyBase.Load
 
        Dim basefolder As String = "G:\daten"  ' Ordner mit Dateien angeben
 
        dtFiles.Columns.Add("Filename", GetType(String))
        dtFiles.Columns.Add("Length", GetType(Integer))
 
        'Dateinamen und Länge in Table eintragen
        For Each file As String In IO.Directory.EnumerateFiles _
            (basefolder, "*.*", IO.SearchOption.TopDirectoryOnly)
 
            dtFiles.Rows.Add(IO.Path.GetFileName(file), New IO.FileInfo( _
              file).Length)
        Next file
 
        'Datenbindung
        bsFiles.DataSource = dtFiles
 
        'Grid einrichten
        dgvFiles.AllowUserToAddRows = False
 
        dgvFiles.Columns("Length").DefaultCellStyle.Alignment =
            DataGridViewContentAlignment.MiddleRight
 
    End Sub
 
 
    Private Sub dgvFiles_CellFormatting(sender As Object,
        e As DataGridViewCellFormattingEventArgs) Handles _
          dgvFiles.CellFormatting
 
        If e.ColumnIndex = 1 Then
            Dim vl As String
            Dim row As DataRow = bsFiles(e.RowIndex).row
            Dim length As Integer = CInt(row.Item("Length"))
            If length < 1024 Then
                vl = length.ToString & "  B"
            ElseIf length < 1024 * 1024 Then
                vl = CInt(length / 1024).ToString & " KB"
            Else
                vl = CInt(length / 1024 / 1024).ToString & " MB"
            End If
 
            e.Value = vl
            e.FormattingApplied = True
        End If
    End Sub
 
 
    Private Sub dgvFiles_SortCompare(sender As Object,
        e As DataGridViewSortCompareEventArgs) Handles dgvFiles.SortCompare
 
        If e.Column.Name <> "Length" Then Exit Sub
 
        Dim row1 As DataRow = bsFiles(e.RowIndex1).row
        Dim row2 As DataRow = bsFiles(e.RowIndex2).row
 
        e.SortResult = CInt(row1("Length")).CompareTo(CInt(row2("Length")))
        e.Handled = True
    End Sub
 
End Class

            dgv_Files.Columns(2).HeaderCell.Style.Alignment = _
              DataGridViewContentAlignment.MiddleLeft
            dgv_Files.Columns(3).HeaderCell.Style.Alignment = _
            DataGridViewContentAlignment.MiddleRight
            dgv_Files.Columns(4).HeaderCell.Style.Alignment = _
            DataGridViewContentAlignment.MiddleRight
            dgv_Files.Columns(5).HeaderCell.Style.Alignment = _
            DataGridViewContentAlignment.MiddleRight
            dgv_Files.Columns(6).HeaderCell.Style.Alignment = _
            DataGridViewContentAlignment.MiddleRight
            dgv_Files.Columns(7).HeaderCell.Style.Alignment = _
            DataGridViewContentAlignment.MiddleRight
 
            dgv_Files.Columns(2).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleLeft
            dgv_Files.Columns(3).DefaultCellStyle.Alignment = _
            DataGridViewContentAlignment.MiddleRight
            dgv_Files.Columns(4).DefaultCellStyle.Alignment = _
            DataGridViewContentAlignment.MiddleRight
            dgv_Files.Columns(5).DefaultCellStyle.Alignment = _
            DataGridViewContentAlignment.MiddleRight
            dgv_Files.Columns(6).DefaultCellStyle.Alignment = _
            DataGridViewContentAlignment.MiddleRight
            dgv_Files.Columns(7).DefaultCellStyle.Alignment = _
            DataGridViewContentAlignment.MiddleRight

    Private Sub mnu_Ordner_Neu_Click(sender As Object, e As EventArgs) Handles _
      mnu_Ordner_Neu.Click
        ' Anzeige untere Leerzeile
        dgv_Folders.AllowUserToAddRows = True
        dgv_Folders.ReadOnly = False
        dgv_Folders.FirstDisplayedScrollingRowIndex = dgv_Folders.Rows.Count - 1
        dgv_Folders.Rows(dgv_Folders.Rows.Count - 1).Cells(1).Selected = True
        dgv_Folders.BeginEdit(True)
    End Sub

    Private Sub dgv_Folders_CellEndEdit(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_Folders.CellEndEdit
        'Dim nVerz As String
        ' Prüfen, ob nicht leer
        'If dgv_Folders.Rows(dgv_Folders.Rows.Count - 1).Cells(1).Value <> "" Then
        '    ' Zelle hat Inhalt
        '    nVerz = (aktivesArchivPfad & dgv_Folders.Rows( 
        ' dgv_Folders.Rows.Count - 2).Cells(1).Value)
        '    ' Prüfen, ob Verzeichnis bereits existiert
        '    If IO.Directory.Exists(nVerz) = True Then
        '        ' Verzeichnis existiert bereits
        '        MsgBox("Verzeichnis " & Chr(34) & nVerz & Chr(34) & "" & _
          "existiert bereits")
        '        dgv_Folders.Rows(dgv_Folders.Rows.Count - 1).Cells(1).Value = 
        ' ""
        '    Else
        '        ' Verzeichnis existiert noch nicht  
        '        My.Computer.FileSystem.CreateDirectory(nVerz)
        '    End If
        'End If
        'CreateFilesAndFolders()
    End Sub

    Private Sub dgv_Folders_RowLeave(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_Folders.RowLeave
        ' Prüfen, ob letzte Zeile
        If dgv_Folders.CurrentCell.RowIndex = dgv_Folders.Rows.Count - 1 Then
            dgv_Folders.AllowUserToAddRows = False
            ' Prüfen, ob leer
            If dgv_Folders.Rows(dgv_Folders.Rows.Count - 1).Cells( _
              1).Value.ToString = "" Then
                dgv_Folders.Rows.Remove(dgv_Folders.Rows(dgv_Folders.Rows.Count _
                - 1))
            End If
        End If
        dgv_Folders.ReadOnly = True
    End Sub

 Dim oldfoldername As String = Nothing
 
 
 Private Sub dgvFolders_CellBeginEdit(sender As Object,
    e As DataGridViewCellCancelEventArgs) Handles dgvFolders.CellBeginEdit
 
        If e.ColumnIndex <> 1 Then Exit Sub
 
        Dim obj As Object = bsfolders(e.RowIndex).Row(e.ColumnIndex)
        If IsDBNull(obj) Then
            oldfoldername = Nothing
        Else
            oldfoldername = obj.ToString
            If Not IO.Directory.Exists(IO.Path.Combine _
                                   (basefolder, oldfoldername)) Then
                MsgBox("Der Ordner " & oldfoldername & " existiert nicht")
            End If
        End If
 
  End Sub
 
 
  Private Sub dgvFolders_CellEndEdit(sender As Object,
          e As DataGridViewCellEventArgs) Handles dgvFolders.CellEndEdit
 
        If e.ColumnIndex <> 1 Then Exit Sub
 
        Dim rowview As DataRowView = bsfolders(e.RowIndex)
        Dim obj As Object = rowview.Row(e.ColumnIndex)
        If IsDBNull(obj) Then Exit Sub
        Dim newfoldername As String = obj.ToString
        If newfoldername.ToLower = oldfilename.ToLower Then Exit Sub
 
        If Not CheckFoldername(newfoldername) Then
            rowview.Row(e.ColumnIndex) = oldfoldername
            MsgBox("Unzulässiges Zeichen im Verzeichnisnamen")
            Exit Sub
        End If
 
        If IO.Directory.Exists(IO.Path.Combine(basefolder, newfoldername)) Then
            MsgBox("Dieses Verzeichnis existiert bereits")
            'Einbauen: falls Oldfoldername = Nothing DBNull.Value setzen
            rowview.Row(e.ColumnIndex) = oldfoldername
            Exit Sub
        End If
 
        If oldfoldername IsNot Nothing Then
            oldfoldername = IO.Path.Combine(basefolder, oldfoldername)
            If IO.Directory.Exists(oldfoldername) Then
                'Bestehenden Ordner umbenennen
                Try
                    My.Computer.FileSystem.RenameDirectory _
                            (oldfoldername, newfoldername)
                Catch ex As Exception
                    MsgBox(ex.Message)
                    rowview.Row(e.ColumnIndex) = oldfoldername
                End Try
            Else
                MsgBox("Der Ordner " & oldfoldername & " existiert nicht")
                rowview.Row(e.ColumnIndex) = DBNull.Value
            End If
        Else
            'Neuer Ordner wird erstellt
            newfoldername = IO.Path.Combine(basefolder, newfoldername)
            Try
                IO.Directory.CreateDirectory(newfoldername)
            Catch ex As Exception
                MsgBox(ex.Message)
                rowview.Row(e.ColumnIndex) = DBNull.Value
            End Try
        End If
  End Sub
 
 
  Private Function CheckFoldername(fn As String) As Boolean
        If String.IsNullOrWhiteSpace(fn) Then Return False
        Dim ivc() As Char = IO.Path.GetInvalidPathChars
        For i As Integer = 0 To fn.Length - 1
            If Array.IndexOf(ivc, fn(i)) >= 0 Then Return False
        Next i
        Return True
  End Function

 'Einbauen: falls Oldfoldername = Nothing DBNull.Value setzen