Zitat:

Zweitens wäre es wahrscheinlich besser in diesem Fall SQL Update bzw Insert Befehle mit einem OleDbCommand Objekt abzusetzen, anstatt alles zuerst in eine DataTable zu schreiben. Das ist lediglich was ein DataAdapter auch macht.

'Aufruf der recursion:
 
 
        For bb = 0 To i_SizeArray
            processDirectory(New IO.DirectoryInfo(CStr(hddArray(bb) & "\")))
        Next
 
 
Sub processDirectory(ByRef dir As IO.DirectoryInfo)
 
        Dim subdir As IO.DirectoryInfo
        Dim file As IO.FileInfo
 
        Try
            '############
            RaiseEvent blub(Me, "errmittel Dateien von Verzeichnis: " & _
              dir.FullName)
 
                For Each subdir In dir.GetDirectories()
                    processDirectory(subdir)
                Next
            Else
                For Each file In dir.GetFiles
                    al_Size.Add(Round(file.Length / 1024, 3))
                    al_Name.Add(file.Name)
                    ...
                    ...
                    ...
                Next
                For Each subdir In dir.GetDirectories()
                    processDirectory(subdir)
                Next
 
        Catch ex As Exception
 
        End Try
    End Sub