Alle PDF Dateien aus ein Verzeicnis in einer Tabelle schreiben VBA Access2000

[ntoni nsimba]

Hallo
ich möchte alle PDF Dateienname im einem Verzeichnis auslesen
dann in einer Acess2000 Tabelle schreiben.

Beispiel
im Verzeichnis C:\Ausgabe habe ich folgende Dateien:
R1.PDF
R2.PDF
R3.PDT
C1.Txt

möchte nur die PDF Datei auslesen dann in Tabelle Objekt schreiben
Ergebnis Tabelle OBjekt
Objetname
R1.PDF
R2.PDF
R3.PDF
wie kann ich so was realisieren
Besonder das auslesen der Dateinamen aus Verzeichis C:\Ausgabe

Danke Ihnen in Voraus für jede Hilfe

Gruß
Ntoni Nsimba

[Ulrich Möller]

Hallo Ntoni,

siehe Access Hilfe->Visual Basic
Spachverzeichnis->Objekte->Filesystemobject und Files-Auflistung. Dort
gibt es auch ein Beispiel "ShowFolderList()", wie so etwas gemacht
werden kann.

Gruß

Ulrich

[Karl Donaubauer]

ntoni nsimba wrote:
> ich möchte alle PDF Dateienname im einem Verzeichnis auslesen
> dann in einer Acess2000 Tabelle schreiben.
>
> Beispiel
> im Verzeichnis C:\Ausgabe habe ich folgende Dateien:
> R1.PDF
> R2.PDF
> R3.PDT
> C1.Txt
>
> möchte nur die PDF Datei auslesen dann in Tabelle Objekt schreiben
> Ergebnis Tabelle OBjekt
> Objetname
> R1.PDF
> R2.PDF
> R3.PDF
> wie kann ich so was realisieren
> Besonder das auslesen der Dateinamen aus Verzeichis C:\Ausgabe

> ...

Public Sub procWriteFilesInTable _
(strDir As String, strExt As String, strTbl As String, strFld As String)

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strFile As String

Set db = CurrentDb
Set rs = db.OpenRecordset(strTbl, dbOpenDynaset)

strFile = Dir(strDir & "\*." & strExt)

Do While strFile <> ""
rs.AddNew
rs(strFld) = strFile
rs.Update
strFile = Dir
Loop

' Hier Fehler behandeln und Variablen leeren

End Sub

Aufruf:
procWriteFilesInTable "C:\Ausgabe","pdf","Objekt","Objetname"

--
Servus
Karl
*********
Access-FAQ: http://www.donkarl.com + AEK16
Access-Entwickler-Konferenz, 28/29.9. Nürnberg, 19/20.10. Hannover