PDA

Vollständige Version anzeigen : Dateisystem


kleinuwe
20.06.2001, 07:17
Hallo,
ist es möglich in vba die dateinamen aus einen bestimmten verzeichnis auszulesen ??

Danke für jede Hilfe

uwe

kama
20.06.2001, 08:00
Schau dir mal den Befehl dir
in der Online Hilfe von Access an
Mit ihm und einer kleinen Schleife solltest du es hinkriegen
kama

hermi
20.06.2001, 08:03
Hallo Uwe,

angenommen du hast ein Formular mit einem Listenfeld "Dateiliste". Für dieses muss in den Eigenschaften/Daten/Herkunftstyp "Werteliste" eingestellt sein. Dann schreib in eine passende Ereignisprozedur des Formulars (z.B. "Beim Anzeigen"):

Private Sub Form_Current()
Dim Datei As String
Dim Liste As String

Liste = ""
Datei = Dir("C:\", vbNormal)
Liste = Datei
Do While Datei <> ""
Datei = Dir
Liste = Liste & ";" & Datei
Loop
Me!Dateiliste.RowSource = Liste
End Sub

Und schon hast du in diesem Beispiel alle Dateien aus C:\ im Listenfeld.

Unberücksichtigt, was passiert, wenn keine Dateien da usw.

Ich hoffe dies hilft dir weiter

cu hermi

kleinuwe
21.06.2001, 11:59
Super, danke, hat funktioniert

grüße uwe