07.11.2022, 21:02
08.11.2022, 21:56
Der Fehlerkommt sobald der Code gestartet wird. Mehr passiert nicht, keine Markierung, nichts, nur Fehlermeldung
08.11.2022, 22:23
Hallöchen,
die Zeile wird erst markiert, wenn Du "Debuggen" drückst.
die Zeile wird erst markiert, wenn Du "Debuggen" drückst.
08.11.2022, 23:23
Hallo schauan,
ich habe jetzt DEBUGGEN gedrückt, jetzt wird:
"For Each varFileName In objFolder.Items"
gelb markiert.
Hilft dir das weiter?
Gruß
Karlheinz
ich habe jetzt DEBUGGEN gedrückt, jetzt wird:
"For Each varFileName In objFolder.Items"
gelb markiert.
Hilft dir das weiter?
Gruß
Karlheinz
09.11.2022, 00:27
Hallo schauan,
ich habe den Fehler, den ich gemacht habe, gefunden, jetzt funktioniert der Code.
ich habe den Fehler, den ich gemacht habe, gefunden, jetzt funktioniert der Code.
09.11.2022, 09:50
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
09.11.2022, 18:36
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
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
09.11.2022, 22:52
Hallo snb,
mir fehlen da die Kenntnisse um deinen Vorschlag zu verwirklichen bzw. anzupassen.
mir fehlen da die Kenntnisse um deinen Vorschlag zu verwirklichen bzw. anzupassen.
10.11.2022, 10:07
Das einzige das geändert werden muss ist der Directory:
Und dann nur laufen lassen: VBEditor F5
Und dann nur laufen lassen: VBEditor F5
Code:
c00 = "G:\OF\"
11.11.2022, 19:39
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.
[attachment=45669][attachment=45670]
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.
[attachment=45669][attachment=45670]