Supportnet / Forum / Datenbanken

Ist es möglich, aus einem Verzeichnis die Dateinamen in einer gesonderten Tabelle einzulesen? Ich stelle mir das so vor, dass ich zum Beispiel Word-dokumente in einem bestimmten Format mit Kundnenummer und Datum abpeichere, um die Datei eindeutig identifizieren zu können. Antwort auch direkt an samuel@djproduction.de DANKE!!!

Hallo, folgende Prozedur liest die Dateien in einem best. Verzeichnis (hier C:\TEST\) und schreibt die Dateinamen in eine Tabelle tblDateien mit dem Tabellenfeld Dateiname

Public Sub LeseVerzeichnis()
Dim Db As Database
Dim Rs As Recordset

Dim objFS As FileSearch
Dim i As Integer

Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("tblDateien")

Set objFS = Application.FileSearch
With objFS
.LookIn = "C:\TEST\"
.Execute

If .FoundFiles.Count > 0 Then
For i = 1 To (.FoundFiles.Count - 1)
Rs.AddNew

Rs!Dateiname = .FoundFiles(i)

Rs.Update
Next i
End If
End With

Rs.Close

Set objFS = Nothing
End Sub

Gruss Mick

• Datenbank in Excel
• datenbank