Hallo zusammen,
ich versuche eine Ordnerstruktur auszulesen und dabei den zu durchsuchenden Ordner fest anzugeben. Also nicht über das Menü auszuwählen.
Hab dies hier im Netz gefunden, funktioniert auch super.
Da es immer der gleiche Ordner ist möchte ich diesen fest vorgeben.
z.b. "C:\Temp\
Kann mir da jemand weiter helfen?
Sub AlleDateinAuslesen()
Dim Ordner As Variant
Dim Pfad As String
Set Ordner = Application.FileDialog(msoFileDialogFolderPicker)
If Ordner.Show = False Then Exit Sub
Pfad = Ordner.SelectedItems(1)
Call DateinAuslesen(Pfad)
Call UnterordnerAuslesen(Pfad)
End Sub
Sub UnterordnerAuslesen(Pfad As String)
Dim fso As New FileSystemObject
Dim Unterordner As Folder
For Each Unterordner In fso.GetFolder(Pfad).SubFolders
DoEvents
Call DateinAuslesen(Unterordner.Path)
Call UnterordnerAuslesen(Unterordner.Path)
Next Unterordner
End Sub
Sub DateinAuslesen(Pfad As String)
Dim fso As New FileSystemObject
Dim Datei As File
'Dim A As String
Dim B As String
Dim C As String
Dim X As Double
For Each Datei In fso.GetFolder(Pfad).Files
DoEvents
A = Datei.Name
B = Datei.ParentFolder
C = Datei.DateCreated
Debug.Print Datei.Name
Debug.Print Datei.ParentFolder
Debug.Print Datei.DateCreated
Next Datei
End Sub
Hallo,
ZitatHab dies hier im Netz gefunden, ...
Normalerweise gibt man dann auch die Quelle an.
Was hindert dich daran, den gewünschten String "C:\TEMP" der Variablen Pfad zuzuweisen?
Das sind absolute VBA Grundlagen! Vielleicht solltest du dir mal ein entsprechendes Wiki oder eBook bezüglich VBA ansehen?
Zitat von: Knobbi38 am August 03, 2025, 15:10:04Hallo,
ZitatNormalerweise gibt man dann auch die Quelle an.
Hab so viele Anleitungen gelesen und Videos gesehen und kann nicht mehr sagen wo ich dies gefunden habe.
ZitatWas hindert dich daran, den gewünschten String "C:\TEMP" der Variablen Pfad zuzuweisen?
Weil ich nicht weis wo! Habe schon einiges Probiert aber nichts hat funktioniert!
Denke dass es mit "msoFileDialogFolderPicker" zusammen hängt.
ZitatDas sind absolute VBA Grundlagen! Vielleicht solltest du dir mal ein entsprechendes Wiki oder eBook bezüglich VBA ansehen?
Bin dabei, konnte aber mir trotzdem keinen reim machen wie oder wo ich dies angeben muss.
Statt..
Pfad = Ordner.SelectedItems(1)
einfach:
Pfad= "C:\Temp"Das ganze FileDialog(msoFileDialogFolderPicker)-Gedöns kann doch wegbleiben,
wenn Du wirklich einen festen Pfad vorgibst.
Eine Alternative wäre (so mach ich es gelegentlich), den Pfad in einer eigens hierfür angelegten
Hilfstabelle in nur einem Datensatz abzulegen und dann mit
Pfad= Dlookup("Feldname","Tabellenname")auszulesen.
Aber wie Knobbi schon schrieb, das sind elementare VBA-Grundlagen 8)
Noch ein Nachtrag:
Neben dem Access-Tutorial (https://www.access-tutorial.de/) gibt es auch noch das VBA-Tutorial (https://www.vba-tutorial.de/), welche man sich mal anschauen könnte. Videos sind m.M. zum lernen eher weniger geeignet, weil sie immer nur ein spezielles Thema behandeln und nicht didaktisch an ein Thema heranführen, dafür sind Fachbücher besser geeignet.
Zusätzlich möchte ich auch noch auf eine Webseite Hinweisen, wo man viele Sache nachlesen kann und es auch einige brauchbare Downloads gibt, leider alles nur auf Englisch:
https://www.accessallinone.com/ (https://www.accessallinone.com/)
Gruß Knobbi38