Ordnerauslesen - Den Ordner fest angeben und nicht über das Menü auswählen

[NEW_ACCESS_USER]

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?

Code [Auswählen] Erweitern

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


[Knobbi38]

Hallo,

Hab 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?
 

[NEW_ACCESS_USER]

Hallo,

Normalerweise 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.

Was 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.

Das 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.


 

[werner budde]

Statt..

Code [Auswählen] Erweitern

Pfad = Ordner.SelectedItems(1)
einfach:

Code [Auswählen] Erweitern

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

Code [Auswählen] Erweitern

Pfad= Dlookup("Feldname","Tabellenname")auszulesen.

Aber wie Knobbi schon schrieb, das sind elementare VBA-Grundlagen 

[Knobbi38]

Noch ein Nachtrag:

Neben dem Access-Tutorial gibt es auch noch das VBA-Tutorial, 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/

Gruß Knobbi38