Dim Db As Database
Dim dbFile, Pfad, Musik, MusikPfad, Dateien As String
Dim TabDef As New TableDef
Dim Feld As New Field
Dim Endung As Boolean
Dim Lpos As Long
 
Musik = Txt_Eingabe.Text
 
'Pfad in dem die Datenbank gespeichert werden soll
dbFile = Datei
 
'Datenbank erstellen(Speicherort, Sortierreihenfolge, Verschlüsselung, 
' Datenbank-Dateiformat)
Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, dbEncrypt + _
  dbVersion30)
 
'Datenbanknamen festlegen
TabDef.Name = "Adressen"
 
'Datenfeld #1
Feld.Name = "ID"                          'Feldname
Feld.Type = dbLong                        'Feldtyp
Feld.Attributes = dbAutoIncrField         'Feldinhalt um 1 erhöhen
TabDef.Fields.Append Feld                 'Feld zur datenbank hinzufügen
Set Feld = Nothing                        'Feld auf "Leer" setzen
 
'Datenfeld #2
Feld.Name = "Stücke"
Feld.Type = dbText
Feld.Size = 255
Feld.AllowZeroLength = True               'Leere Felder zulässig?
TabDef.Fields.Append Feld
Set Feld = Nothing
 
Db.TableDefs.Append TabDef                'Datenbank-Tabelle der Datenbank 
' hinzufügen
Db.Close                                  'Datenbank schließen
 
Set TabDef = Nothing                      'Tabellen schließen
Set Db = Nothing                          'Datenbank schließen
 
'Daten 
' einlesen---------------------------------------------------------------------
' ------
Dim Tabelle As Recordset
 
'Datenbank öffnen (Pfad, Zugriffsmodus, Schreibschutz)
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
'Datenbank-Tabelle öffnen
Set Tabelle = Db.OpenRecordset("Adressen")
 
'Verzeichnis festlegen das gescannt werden soll
Dateien = Dir(Musik & "\*.mp3", vbNormal)
 
Endung = Form2.Chk_Dateiendung.Value
 
If Endung = True Then
 
    Do Until Dateien = ""
        Tabelle.AddNew                              'Neuen Datensatz hinzufügen
        Tabelle("Stücke") = Dateien                 'In Feld "Stücke" schreiben
        Tabelle.Update                              'Datensatz speichern
        Tabelle.Bookmark = Tabelle.LastModified     'Datenbank-Zeiger auf neuen 
        ' Datensatz setzen
        Dateien = Dir
    Loop
 
Else
 
    Do Until Dateien = ""
        Tabelle.AddNew                                       'Neuen Datensatz 
        ' hinzufügen
        Lpos = InStrRev(Dateien, ".")                        'Zeichen bis zum 
        ' letzten Punkt
        Tabelle("Stücke") = Left$(Dateien, (Lpos - 1))       'In Feld "Stücke" _
          schreiben
        Tabelle.Update                                       'Datensatz 
        ' speichern
        Tabelle.Bookmark = Tabelle.LastModified              'Datenbank-Zeiger 
        ' auf neuen Datensatz setzen
        Dateien = Dir
    Loop
 
End If
 
'Datenbank schließen
Tabelle.Close
Db.Close
Set Tabelle = Nothing
Set Db = Nothing
 
End Sub