Office: (Office 2010) Unterordner und Inhalt anzeigen

Helfe beim Thema Unterordner und Inhalt anzeigen in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich suche nach einer Lösung die mir den Inhalt eines Unterordners anzeigt. Code: C:\Ablage\2017\01\Aufträge... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Hubert111, 22. Februar 2017.

Seite 1 von 2

HUBERT111

Hubert111

Unterordner und Inhalt anzeigen

Hallo zusammen,

ich suche nach einer Lösung die mir den Inhalt eines Unterordners anzeigt.

Code:

C:\Ablage\2017\01\Aufträge
C:\Ablage\2017\01\Gutschriften
C:\Ablage\2017\01\Rechnungen

Wie kann ich mir z.B. nur den Ordner "\01\Gutschriften" anzeigen lassen?
(Mein Suchfeld heißt: "txtSuchen")

Mit meiner Funktion werden mir immer alle Unterordner
von C:Ablage2017 angezeigt:

Public Function Dateienauslesen(StartFolder)
Dim FSO As Object
Dim objFolder As Object
Dim objfile As Object
Dim colFiles As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(StartFolder)

Set colFiles = objFolder.files
'alle Dateien im Ordner auslesen
For Each objfile In colFiles
'Debug.Print "File" & objfile.Name & objfile.DateCreated & objfile.DateLastModified
Next

'alle Ordner auslesen und die Funktion Dateienauslesen für die Unterordner starten:
For Each objFolder In objFolder.SubFolders
'Debug.Print "Ordner:" & StartFolder & "" & objFolder.Name
Dateienauslesen (StartFolder & "" & objFolder.Name)

Next

End Function

Aufruf:
Dim StartFolder As String

StartFolder = ("C:\Ablage\2017")
Dateienauslesen StartFolder

Me.WebBrowser.Navigate StartFolder
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße Hubert

:)

Hubert111, 22. Februar 2017

#1
MAIKEK

maikek

Moin,
in welcher Form möchtest du denn die Funktion wissen lassen, dass du nur "den Ordner "01Gutschriften" anzeigen lassen" willst?
Soll das immer nur dieser Ordner sein? Willst du jeweils auswählen?
Hartverdrahtet sähe das so aus:

Code:

For Each objFolder In objFolder.SubFolders
'Debug.Print "Ordner:" & StartFolder & "" & objFolder.Name
If objFolder.Name = "01Gutschriften" then
Dateienauslesen (StartFolder & "" & objFolder.Name)
End If
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Achtung: bitte die vorher vorhandenen Backslashe wieder einfügen. Leider werden die von der Forensoftware verschluckt.

maike

maikek, 24. Februar 2017

#2
HUBERT111

Hubert111

Hallo Maike,

danke für deine Hilfe.

Ich würde den Ordner gerne aussuchen können.
Mein Suchfeld heißt: "txtSuchen"

Hubert111, 24. Februar 2017

#3
HUBERT111

Hubert111

Unterordner und Inhalt anzeigen

Ich habe es nun so probiert aber es funktioniert nicht:

Code:

'alle Ordner auslesen und die Funktion Dateienauslesen für die Unterordner starten:
For Each objFolder In objFolder.SubFolders
'Debug.Print "Ordner:" & StartFolder & "" & objFolder.Name
If objFolder.Name = Me.txtSuchen Then
Dateienauslesen (StartFolder & "" & objFolder.Name)
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hubert111, 24. Februar 2017

#4
ELMAR

elmar

Achtung: bitte die vorher vorhandenen Backslashe wieder einfügen. Leider werden die von der Forensoftware verschluckt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

stimmt leider, aber einfach doppelt eintippen hilft. Anscheinend mag die Forensoftware sie nicht doppelt schlucken.*rolleyes.gif*
Code:

C:\Forum\
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

elmar, 24. Februar 2017

#5
HUBERT111

Hubert111

Danke das mit den Backslash's habe ich geändert.

Hubert111, 24. Februar 2017

#6
MAIKEK

maikek

Was sagt denn das Direktfenster, wenn du Debug.Print wieder einkommentierst?
Code:

For Each objFolder In objFolder.SubFolders
Debug.Print "Gesucht: " & Me.txtSuchen & " Ordner:" & StartFolder & "" & objFolder.Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

@Elmar: Aha, danke für den Workaround *wink.gif* .

maike

maikek, 24. Februar 2017

#7
MAIKEK

maikek

Unterordner und Inhalt anzeigen

Da fällt mir grad noch was auf: Da sich die Funktion ja rekursiv wieder selbst aufruft, muss hier möglicherweise noch der "Oberfolder-Name" mit berücksichtigt werden.
maike

maikek, 24. Februar 2017

#8
HUBERT111

Hubert111

Ok wird versucht.

Hubert111, 24. Februar 2017

#9
HUBERT111

Hubert111

Gibt es evtl. noch einen anderen Lösungsansatz
sich einen gewünschten Unterordner anzeigen zu lassen?

Es will mir einfach nicht gelingen den Unterordner:
KundeA\2017\01\AufNr1
angezeigt zu bekommen.

Ordnerstruktur von Kunde A:
KundeA
KundeA\2017
KundeA\2017\01
KundeA\2017\01\AufNr1
KundeA\2017\01\AufNr2

Code:

Public Function Dateienauslesen(StartFolder)

Dim FSO As Object
Dim objFolder As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(StartFolder)

For Each objFolder In objFolder.SubFolders

Debug.Print StartFolder & "\" & objFolder.Name
Dateienauslesen (StartFolder & "\" & objFolder.Name)

Next

Set FSO = Nothing
Set objFolder = Nothing

End Function

Aufruf:
StartFolder = "C:\Ablage" & "\" & "Dokumente" & "\" & "KundeA" & "\" & (Me.txtSuchen)
Dateienauslesen StartFolder

Me.WebBrowser.Navigate StartFolder

Me.txtPfad = StartFolder
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke und Grüße

Hubert

Hubert111, 25. Februar 2017

#10
HCSCHERZER

hcscherzer

Der Name der Funktion ist ja ein wenig verwirrend ... Du willst doch keine Dateinamen sondern Ordnernamen auslesen.
Für die Dateien solltest Du Dir eine zweite Funktion anlegen und diese hier umbenennen.

Es will mir einfach nicht gelingen den Unterordner:
KundeA\2017\01\AufNr1
angezeigt zu bekommen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was wird denn ausgegeben wenn Du die Funktion im Direktfenster aufrufst mit
Code:

dateienauslesen("C:\Ablage\Dokumente\KundeA\2017\01")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hcscherzer, 25. Februar 2017

#11
HUBERT111

Hubert111

Danke für Deine Anregung!

Eigentlich gibt die Funtion tatsächlich die Ordner
und die darin befindlichen Dateien aus.
(Den Teil für die Dateien habe ich weggelassen...)

Stimmt ich suche z.B. den Ordner;
KundeA\2017\01\AufNr1

KundeA\2017\01\AufNr1
KundeA\Briefe
KundeA\Termine

Meine Function zeigt aber nur die Inhalte
unterhalb von "KundeA\" an.

Ich hoffe es wird jetzt richtig angezeigt.

Hubert111, 25. Februar 2017

#12
JOSS

Joss

Unterordner und Inhalt anzeigen

Hallo ,

versuch's mal so:
Code:

Public Function OrdnerAuslesen(StartFolder)

Dim FSO As Object
Dim objFolder As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(StartFolder)

For Each objFolder In objFolder.SubFolders

Debug.Print StartFolder & "\" & objFolder.Name
Call OrdnerAuslesen(StartFolder & "\" & objFolder.Name)

Next

Set FSO = Nothing
Set objFolder = Nothing

End Function

'Aufruf
Dim StartFolder As String

StartFolder = "C:\Ablage\Dokumente\KundeA\"
Call OrdnerAuslesen(StartFolder)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Josef

Joss, 26. Februar 2017

#13
HUBERT111

Hubert111

Hallo Josef,

danke für deine Mühe.

Ich habe deine Function übernommen und sie zeigt auch alle
Unterordner zu einem Kunden an z.B.:
C:\Ablage\Dokumente\KundeA\2017\01\AufNr1
C:\Ablage\Dokumente\KundeA\2017\01\AufNr2
C:\Ablage\Dokumente\KundeA\2017\01\AufNr3
C:\Ablage\Dokumente\KundeA\Briefe
C:\Ablage\Dokumente\KundeA\Termine

Aber wie komme ich nur an einen bestimmten Unterordner z.B:
C:\Ablage\Dokumente\KundeA\2017\01\AufNr2

Hierzu habe ich ein Feld ""txtOrdnerSuchen""
Wenn ich hier ""AufNr2"" eingebe bräuchte ich diesen Pfad:
C:\Ablage\Dokumente\KundeA\2017\01\AufNr2

Aber wie? Evtl. eine 2. Suche basierend auf dem Ergebnis von
""Call OrdnerAuslesen""?
Ich habe keine Idee mehr...

Gruß Hubert

Hubert111, 27. Februar 2017

#14
MAIKEK

maikek

Was ist denn genau das Problem?
Vorausgesetzt die Funktion befindet sich in deinem Formularmodul, dann so:
Code:

'...
For Each objFolder In objFolder.SubFolders

Debug.Print StartFolder & "\" & objFolder.Name
Call OrdnerAuslesen(StartFolder & "\" & objFolder.Name)
If objFolder.Name = Me.txtOrdnerSuchen then msgbox "Hier isser"

Next
'...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

maikek, 27. Februar 2017

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Unterordner und Inhalt anzeigen

Die Seite wird geladen...

Unterordner und Inhalt anzeigen - Similar Threads - Unterordner Inhalt anzeigen
Schriftgröße in Email Unterordner ändern...
in Microsoft Outlook Hilfe
Schriftgröße in Email Unterordner ändern...: hallo und guten Morgen , Ich hätte da mal ne Frage. Ich hab für verschiede Email Ordner angelegt. Privat, Werbung, etc. U.a. auch für Spam Mails. Nun ist es so, das im Spam Ordner eine andere...
Outlook Emails inkl. aller Unterordner pro Tag zählen/auswerten
in Microsoft Outlook Hilfe
Outlook Emails inkl. aller Unterordner pro Tag zählen/auswerten: Liebe Community, gibt es eine Möglichkeit in Outlook die an einem Tag erhaltenen Emails zu zählen? Da einige Emails aufgrund von erstellten Regeln in Unterordner verschoben werden und von dort aus...
VBA Unterordner
in Microsoft Excel Hilfe
VBA Unterordner: Hallo zusammen, gibt es eine Möglichkeit im Formularordner von VBA Unterordner zu erstellen? Habe ein Bild angefügt, damit ihr wisst was ich meine. Gruß Honk
Ordner mit Unterordner per VBA erstellen
in Microsoft Access Hilfe
Ordner mit Unterordner per VBA erstellen: Hallo Leute Ich möchte gerne Order incl. Unterordner per VBA erstellen. Die Namen der Ordner und Unterordner sind in einer Tabelle gespeichert. Mit nachfolgender Prozedur funktioniert es auch ganz...
Posteingang Unterordner entfernen
in Microsoft Outlook Hilfe
Posteingang Unterordner entfernen: Guten Tag, in meinem Outlook Postfach "Posteingang" gibt es folgende Unterordner. Drafts, Sent, Trash, Spam. Diese lassen sich nicht als eigene Ordner extrahieren. Ist das Normal ? Im meine...
auch Unterordner berücksichtigen
in Microsoft Excel Hilfe
auch Unterordner berücksichtigen: Servus zusammen, mit folgendem Schnipsel durchsuche ich html-Files nach einen Begriff. Funktioniert soweit auch. Aber wie muss ich etwas zusammenbasteln, damit der Code auch alle Unterordner...
MS Teams / SharePoint übergeordnete Ordner lassen sich nicht löschen, wenn Unterordner oder ...
in Microsoft Teams Hilfe
MS Teams / SharePoint übergeordnete Ordner lassen sich nicht löschen, wenn Unterordner oder ...: Hallo liebes Microsoft Team, ich müsste übergeordnete Ordner innerhalb von Kanälen löschen, die mehrere hunderte Unterdateien und Ordner haben. Selbst als Admin sagt mir jedoch Teams/SharePoint,...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden