Hallo zusammen!
Ich möchte gerne Dateinamen aus einem Verzeichnis einlesen und dann in eine Tabelle importieren.
Hat jemand einen Tipp für mich, wie ich das anstelle?
Danke & viele Grüße aus Hannover
Yuppi
Hallo zusammen!
Hallo!
Ich möchte gerne Dateinamen aus einem Verzeichnis einlesen und
dann in eine Tabelle importieren.
Ich versteh nicht ganz:
Sollen die Dateinamen in die Tabelle eingefügt werden oder die Daten aus allen Dateien in einem Verzeichnis?
Wenn das zweite der Fall ist, um welches Datenformat handelt es sich bei den zu importierenden Daten?
Gruß, tester.
Hallo tester!
Ich möchte lediglich die Dateinamen in der Tabelle haben…
Danke & Grüße
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Dim FS As New FileSystemObject
Dim fHelp As File
Dim FFolder As Folder
Dim rsUeberwachung As Recordset
Set rsUeberwachung = CurrentDb.OpenRecordset(„Tabelle“, dbOpenDynaset)
Set FFolder = FS.GetFolder(„Dein Verzeichnis“)
For Each fHelp In FFolder.Files
rsUeberwachung.AddNew
rsUeberwachung!Dateiname = fHelp.Name
rsUeberwachung.Update
Next
Das hilft, denke ich…
Kann zu dem Code nur noch hinzufügen, dass die Verweise auf die „Microsoft DAO 3.6 Library“ und die „Microsoft Scripting Runtime“ gesetzt sein müssen, dass der Code funktioniert. Ansonsten hagelt es Fehlermeldungen.
Alternativ kann man die Dateinamen auch per „DIR“-Funktion ermitteln, dann kann man sich den Verweis auf die Scripting-Runtime sparen:
aktDatei = Dir("C:\Test\*.\*") 'dein Ordner + Platzhalter für Dateiname
While aktDatei "" Then
'Code zum Übertragen des Inhalts von aktDatei in die Tabelle (sh. unten)
aktDatei = Dir
Wend
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]