Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
 
    Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
      "Source=F:\datenbank.mdb;")
 
    Private Sub execNQuery(ByVal cmdText As String)
        Dim cmd As New OleDbCommand(cmdText, conn)
 
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("Fehler" & vbCrLf & ex.Message)
        End Try
        conn.Close()
 
    End Sub
 
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim DateiPath As String
        Dim DateiName As String
 
        Dim sFile As String
        Dim sPath As String ' Startverzeichnis
        sPath = "F:\Arbeitsunterlagen\"
 
        For Each sFile In My.Computer.FileSystem.GetFiles(sPath, _
          FileIO.SearchOption.SearchAllSubDirectories, "*.*")
 
            DateiPath = System.IO.Path.GetDirectoryName(sFile)
            DateiName = System.IO.Path.GetFileName(sFile)
 
            Dim sql As String = "INSERT INTO Archiv (Path, File) VALUES ('" & _
              DateiPath & "', '" & DateiName & "')"
            execNQuery(sql)
            'Application.DoEvents()
 
        Next
 
        MsgBox("fertig")
 
    End Sub
 
End Class