Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kann ich alle Bildformate in einem VBA-Befehl ansprechen?

Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 03:27:46
Festus
Hallo,
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
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 05:48:42
onur
"Ins Unreine gesprochen suche ich sowas wie "type of picture"" - Gibt es nicht. Gruppen musst du schon selber angeben/auflisten.
So wie hier:
https://www.herber.de/bbs/user/165917.xlsm
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 08:58:09
volti
Hallo,

Maske entsprechend erweitern, z.B. für png, jpg oder mit Or erweitern
Maske="*.[jp][pn]g"
If fil.Name Like Maske Or fil.Name Like "*.jpeg" Then


Gif und BMP sind für Fotos eher untytisch.

Gruß
Karl-Heinz
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 17:49:17
Daniel
Keep it simple

If "jpg gif png" Like "*" right(fil.name, 3) & "*" then


Oder

If instr("jpg gif png" , right(fil.name, 3)) > 0 then


Gruß Daniel
Anzeige
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 20:20:56
Festus
... das ist wohl die beste Antwort :-)
wie du sagst: keep it simple - und manchmal hat man sich geistig so fest gefahren, dass man die einfache Lösung nicht mehr sieht.
danke dir, so mach ich es
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 15:52:38
Festus
danke euch für die Antworten, so was wie "type of ..." hätte ich sehr interessant und elegant gefunden.
dann muss ich weiter mit "manueller Auswahl" leben.
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 17:53:10
Daniel
Maske="*.[jp][pn]g"


Das würde aber auch die Dateiendungen ppg und jng akzeptieren.

Gruß Daniel
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 17:59:42
volti
Das würde es in der Tat.

Aber die kenne ich nicht und die wird es auch nicht geben, vor allem nicht in meinen normalen (Bilder)ordnern.

Gruß
KH
Anzeige
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 20:09:30
Daniel
ppg sind Powerpointpräsentationen.
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 15:54:59
onur
Hast du meine Datei dir überhaupt angesehen? Du kannst doch damit sowas wie TypeOf selbst definieren.
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 20:15:35
Festus
ja habe ich, danke.
Da die Filterung über einen Dialog geht habe ich diesen Lösungsansatz nicht weiter berücksichtigt, ich steige auf einem anderen Weg in die Suche ein. Wie beschrieben ist mein Programmschnipsel nur ein gaaaanz kleiner Ausschnitt aus einem komplexeren System.
AW: Kann ich alle Bildformate in einem VBA-Befehl ansprechen?
06.01.2024 20:24:01
onur
"nur ein gaaaanz kleiner Ausschnitt aus einem komplexeren System. " ?
Schreibst du etwa die Software für die Mars-Mission? Ich dachte, du willst nur doppelte Dateien finden. :)
Versuchst du vielleicht so etwas zu basteln?
https://www.heise.de/download/product/anti-twin-36737
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige