online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon jojo7 vom 19.11.2021, 13:45 Options

Beim Durchsuchen des Filesystems einzelne Ordner ausschliessen

Hallo,

ich durchsuche in meinem VBA-Code alle (Unter-)Ordner ab einem bestimmten Pfad nach Dateien mit bestimmten Kriterien:

u.a.
Dim objFileSystemObject As Object
Dim objFolder As Object
Const strPath = "xxx"

For Each objFileWithFolder In objFolder.Files
blabla
Next

Was muss ich vor "blabla" einfügen, damit bestimmte Ordner ausgeschlossen werden? Kann ich das irgendwie mit einem eingebauten "Next" machen?

Danke für eure Hilfe, Gruß
Jojo


Antwort schreiben

Antwort 1 von Marie vom 23.11.2021, 06:50 Options

vielleicht mit einem

   if  strPath = "xxx" then
      mäh mäh
   else 
      blabla
   endif
next 


Oder welches Kriterium auch immer die bestimmten Ordner haben sollen. Wäre schon sinnvoll Du drückst Dich etwas genauer aus, dass man nicht raten muss welsches die bestimmten Ordner sein sollen.

Gruß Marie

Antwort 2 von Marie vom 23.11.2021, 07:31 Options

hm, vermute mal Dein strPath sollte der Ausgangspunkt der Suche sein,

versuches mal mit

For Each Subfolder in Folder.SubFolders
if Subfolder.name <> "xyz" 


Nochmal Gruß Marie

Antwort 3 von jojo7 vom 23.11.2021, 08:35 Options

Hallo Marie,

sorry, dass ich mich wohl zu undeutlich ausgedrückt habe.

Also, mit strPath steige ich ein.
Set objFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystemObject.getfolder(strPath)

Danach sollen alle Ordner, die unterhalb strPath liegen, durchsucht werden. Das funktioniert auch wunderbar. Jetzt will ich aber, das bestimmte Unterordner (UND ALLE WEITEREN UNTERORDNER, die dieser enthält), NICHT in der Schleife berücksichtigt werden.

Kann ich jetzt die letzten beiden Zeilen von dir nehmen (d.h. sind Subfolder und Folder.SubFolders allgemein gültig) oder muss ich das auf meine Objekte abändern?

Danke für deine Hilfe!

Viele Grüße
Jojo

Ähnliche Themen

per Makro Tabelle durchsuchen und Ergebnis ausgeben
Petra65  05.06.2009 - 687 Hits - 10 Antworten

Spalte durchsuchen und text ausgeben
joschi123  25.06.2009 - 156 Hits - 1 Antwort

Den Sverweis nach links durchsuchen?
atomictunes  25.09.2009 - 220 Hits - 13 Antworten

Ordner durchsuchen ob Datei vorhanden?
Ulle-gt5  25.10.2009 - 173 Hits - 6 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 11:26:25 2026