11.11.2022, 22:32
12.11.2022, 15:10
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.
12.11.2022, 15:18
Verzichte aud 'hochkomma's'.
Verwende:
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
12.11.2022, 16:36
@snb,
1)
MsgBox = ohne =
2)
Laufzeitfehler 445 in Zeile mit MsgBox bei j=0
(st enthält 15 items)
1)
MsgBox = ohne =
2)
Laufzeitfehler 445 in Zeile mit MsgBox bei j=0
(st enthält 15 items)
12.11.2022, 16:46
Exakt, genau.
12.11.2022, 18:26
... 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