Breite und Höhe von Bildern

[schauan]

Hallöchen,,
Ich versuchs nochmal. Wo kommt denn der Fehler?

[Karlheinz16]

Der Fehlerkommt sobald der Code gestartet wird. Mehr passiert nicht, keine Markierung, nichts, nur Fehlermeldung

[schauan]

Hallöchen,

die Zeile wird erst markiert, wenn Du "Debuggen" drückst.

[Karlheinz16]

Hallo schauan,
ich habe jetzt DEBUGGEN gedrückt, jetzt wird:

"For Each varFileName In objFolder.Items"

gelb markiert.
Hilft dir das weiter?

Gruß

Karlheinz

[Karlheinz16]

Hallo schauan,
ich habe den Fehler, den ich gemacht habe, gefunden, jetzt funktioniert der Code.

[snb]

Alternative:

Code:

Sub M_snb()
  c00 = "G:\OF\"
  c01 = Dir(c00 & "*.jpg")
 
  Do Until c01 = ""
    c02 = c02 & Chr(0) & c01
    c01 = Dir
  Loop
  st = Split(Mid(c02, 2), Chr(0))
 
  With CreateObject("Shell.Application").Namespace(c00)
    For j = 0 To UBound(st)
      MsgBox = .getdetailsof(.Items.Item([color=green]st(j)[/color]), 31)
    Next
  End With
End Sub

[Gast 123]

Hallo

ich erlaube mir mal eine alte Excel 2003 Datei  zum Auflisten von mir hochzuladen. 

die ersten zwei Tabellen sind für MP3 und Videos gedacht, die nächsten zwei Tabellen für Bilder.
Es gibt eine Übersicht für alle Tabellen, mit Sortierroutinen. Damit kann man doppelte Datein feststellen.
Für doppelte muss man die ganze Tabelle nach Dateinamen sortieren, und Button "doppelte" starten.

Vielleicht gefällt sie dir??  Würde mich freuen.

mfg  Gast 123

[Karlheinz16]

Hallo snb,
 mir fehlen da die Kenntnisse um deinen Vorschlag zu verwirklichen bzw. anzupassen.

[snb]

Das einzige das geändert werden muss ist der Directory:
Und dann nur laufen lassen: VBEditor F5

Code:

c00 = "G:\OF\"

[Karlheinz16]

Hallo snb,
ich habe getan, wie du es geschrieben hast. Ich habe 2 Bilder hinzugefügt ( das glaube ich wenigstens ), damit du selbst siehst, was bei mir passiert.