VBA Ordner Rekursiv durchsuchen nach Dateien

Nabend,

kann mir jemand sagen, ob es möglich ist diesen Code so anzupassen, dass auch Unterordner durchsucht werden?
Ich brauche nur die Zahl der Dateien. Wenn es Unterordner gibt brauche ich dennoch nur die Gesamtzahl der Dateien.


Grüße

Content-Key: 1115181476

Url: https://administrator.de/contentid/1115181476

Ausgedruckt am: 20.09.2021 um 19:09 Uhr

Mitglied: 149062
Lösung 149062 02.08.2021 aktualisiert um 17:55:52 Uhr
Goto Top
Funktion rekursiv für alle Unterordner aufrufen ...
Erstellen rekursiver Prozeduren

bsp.
(Achtung "Option Compare Text" muss an den Anfang des Codefensters ganz oben)
Klappt natürlich nur wenn der User auch alle Ordner und Dateien sehen kann und ihm nicht Zugriffsrechte auf Unterordner fehlen.
Mitglied: Xaero1982
Xaero1982 02.08.2021 um 18:28:10 Uhr
Goto Top
@149062: Ich danke dir. Du hast mir den Abend gerettet!
Mitglied: Xaero1982
Xaero1982 03.08.2021 um 12:59:55 Uhr
Goto Top
@149062

hast du dazu auch noch eine Idee? Ich finde keine wirkliche Lösung.

Die Exceldatei wird mit Onedrive synchronisiert. D.h. sie liegt zwar im lokalen Onedrive-Ordner, aber beim Pfad auslesen liest er den Pfad von Onedrive aus. Damit kann ich leider nichts anfangen.
Ich brauche den lokalen Pfad.

CurDir liest offenbar nur den Standardspeicherpfad aus und ThisWorkbook.path eben den Onedrivepfad vom Sharepoint, also https:// usw.

Hab dann das noch gefunden:

Aber das liest irgendwie auch nur den Pfad von den d:\Eigenen Dateien aus und mal d:\Eigene Dateien\Desktop (Das ist bei mir der Speicherort vom Desktop)

Onedrive liegt aber unter c:\users\profilname\onedrive

Grüße
Mitglied: 149062
149062 03.08.2021 um 14:06:30 Uhr
Goto Top
Mitglied: Xaero1982
Xaero1982 03.08.2021 um 16:33:25 Uhr
Goto Top
Hab ich gefunden und getestet und bekomme immer einen Fehler bei


Grüße
Mitglied: 149062
149062 03.08.2021 aktualisiert um 17:24:00 Uhr
Goto Top
Zitat von @Xaero1982:

Hab ich gefunden und getestet und bekomme immer einen Fehler bei

>
Grüße

Dann hast du der Funktion den falschen Pfad übergeben, guckst du klappt doch ;-) face-wink.

screenshot
Mitglied: Xaero1982
Xaero1982 04.08.2021 um 17:50:09 Uhr
Goto Top
Mh wenn ich das Solo ausführe oder den restlichen Code - gehts.
Na ich schaue es mir die Tage nochmal an. Habs es nun erstmal über die Umgebungsvariable %Onedrive% gelöst.

Danke dir!
Heiß diskutierte Beiträge
question
Windows PrintServer 2016 - KB5005573 macht Drucken unmöglich Fehler 0x11bbeidermachtvongreyscullVor 1 TagFrageWindows Server22 Kommentare

Moin Kollegen, verdammt den hatte ich nicht auf dem Schirm. Ich hab gestern Sicherheitsupdates auf unseren 2016ern ausgerollt und heute morgen kann keiner mehr drucken, ...

question
Rechner im Netzwerk frieren nach Neustart einCZF-MarkusVor 1 TagFrageWindows Netzwerk15 Kommentare

Seit einer Woche frieren unsere Rechner (Windows 10) im Firmennetzwerk nach einem Neustart ein, mal ist es die Outlook.exe, mal die Explorer.exe, mal die .exe ...

question
Macadresse fest auf dem Board ändernDippsVor 1 TagFrageHardware12 Kommentare

Hallo ich habe ein Mainboard was defekt ist. Nun habe ich das Typgleiche geholt und ausgetauscht. Es läuft ein Linux drauf mit einer Software die ...

question
Kauftipp für einfaches KabelmodemTheEPOCHVor 1 TagFrageHardware5 Kommentare

Hallo zusammen, ich bräuchte eine kleine Kaufberatung. Ich suche ein ganz einfaches Kabelmodem. Das Gerät soll vor eine OPNsense und das Internet bereitstellen. DOCSIS 3.0 ...

question
Clonen einer SSD Platte auf eine grösserejensgebkenVor 22 StundenFrageFestplatten, SSD, Raid9 Kommentare

Hallo Gemeinschaft habe in meinem Rechner eine alte SSD 128 und eine neu installierte mit Windows 10 drauf 512 GB nun möchte ich gerne die ...

question
Aufbau Netzstruktur für CARP mit OPNsense gelöst screemyVor 1 TagFrageLinux Netzwerk6 Kommentare

Guten Abend, wir betreiben auf 2 ProxmoxVE Hosts jeweils eine OPNsense. Diese möchten wir mittels CARP hochverfügbar konfigurieren für die LAN/WAN Schnittstelle. Folgender Aufbau ist ...

info
Druckprobleme an PrintServern nach Sept. 2021 UpdatekgbornVor 1 TagInformationWindows Server

FYI: Seit die Sicherheitsupdates vom Patchday 14. September 2021 ausgerollt wurden, stehen Administratoren vor dem Problem, dass Clients eventuell nicht mehr an einem Terminalsever oder ...

question
Fritzbox als VPNClientproton34Vor 1 TagFrageRouter & Routing7 Kommentare

Hallo, ich habe dem letzt gelesen, dass es nicht möglich sein soll eine FritzBox 7490 als VPNClient zu verwenden. Den Beitrag findet ihr hier:. Jetzt ...