Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 03:27:46
Festus
ich möchte per Excel-Makro meine Festplatten durchforsten und identische Dateien (vorwiegend Fotos) finden und anzeigen lassen. Dies funktioniert auch wunderbar wenn ich jeden Dateityp (*.jpg *.png *.gif ...) einzeln suchen lasse, oder auch mittels *.* für alle Dateien.
Jetzt meine konkrete Frage: gibt es eine Möglichkeiten bestimmte "Gruppen" von Dateien anzusprechen, z.B. alle Bilddateien, alle Videos, alle Textdateien, ... ?
Ins Unreine gesprochen suche ich sowas wie "type of picture" (frei erfunden, meine Worte)
Die Dateien werden jetzt so gesucht (verkürzte Darstellung):
Dim fol As Object 'Folder (Verzeichnis, im Vorfeld festgelegt) wird rekursiv aufgerufen
Dim fil As Object 'Datei
Dim Maske As String
Maske = "*.jpg"
For Each fil In fol.Files
If fil.Name Like Maske Then
'... hier gehts erfolgreich weiter
endif
next fil
Wie gesagt, das funktioniert soweit.
Ich möchte aber gerne statt Maske "*.jpg" eine Alternative finden, die alle Bilddateien gleichzeitig anspricht.
LG Festus