Mehrfachfehler
16.04.2007 10:00:50
Rüdiger
ich stehe etwas auf der Leitung.
Ich habe fast 16.000 Bilder in ein Verzeichnis leider sind nicht alle Bilder OK.
Die Namen der Bilder habe ich in einder Datei.
Ich möchte wissen ob das Bild OK ist , dazu lese sie hierzu in ein Image1 ein.
Siehe Beispiel:
Do While Cells(lz, 2) ""
KplBildPfad = "F:\.......\" & Tabelle1.Cells(lz, 2)
Existiert = ""
Existiert = Dir(KplBildPfad)
If (Existiert "") Then
On Error GoTo aaa:
UserForm1.Image1.Picture = LoadPicture(KplBildPfad)
Cells(lz, 3) = "OK"
GoTo bbb:
aaa:
Cells(lz, 3) = "Fehler"
bbb:
End If
lz = lz + 1
Loop
Sobald das zwei Bilder einen Fehler haben, steigt das Programm aus. Wie kann ich den Fehler zurücksetzten. evtl. geht das auch einfacher.
Vielen Dank für die Hilfe