Breite und Höhe von Bildern

[ralf_b]

Der Farb-Tag muß raus  

Code:

[color=green] [/color]

[Karlheinz16]

Hallo ralf_b, vielen Dank für deinen Beitrag. Ich habe, wie nennt man das, wenn ich ein Hoch-Komma davor setze, in den Ruhestand versetzt, dann kommt zwar keine Fehlermeldung mehr, aber mehr passiert auch nicht.

[snb]

Verzichte aud 'hochkomma's'.
Verwende:

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(st(j)), 31)
    Next
  End With
End Sub

[schauan]

@snb,

1)
MsgBox = ohne =

2)
Laufzeitfehler 445 in Zeile mit MsgBox bei j=0
(st enthält 15 items)

[snb]

Exakt, genau.

[schauan]

... und nun? So klappt's.

Code:

Sub M_snb_AS()
  c00 = "C:\Test\"
  With CreateObject("Shell.Application").Namespace(c00)
    For Each c01 In .Items
            If InStr(1, c01, ".jpg") Then MsgBox .getdetailsof(c01, 31)
    Next
  End With
End Sub