|
Hallo,
ich bentutze dieses script um Bilder aus ordnern in neue zu Kopieren (Excel VBA). Es sagt mir allerdings nicht welche Bilder fehler auslösen nur "datei nicht gefunden". Wenn ein Bild einen Fehler auslöst, stoppt das Programm die ganze Aktion, kann man dem auch noch sagen das es fehler übergehen soll?
Sub KopierenUndUmbenennen2()
Dim FSO As Object
Dim varData As Variant
Dim LRow As Long, i As Long
Dim strOld As String, strNew As String
Set FSO = CreateObject("Scripting.filesystemobject")
LRow = Cells(Rows.Count, 1).End(xlUp).Row
varData = Range("A3:D" & LRow)
For i = LBound(varData) To UBound(varData)
strOld = IIf(Right(varData(i, 1), 1) <> "\", varData(i, 1) & _
"\", varData(i, 1)) & varData(i, 2)
strNew = IIf(Right(varData(i, 3), 1) <> "\", varData(i, 3) & _
"\", varData(i, 3)) & varData(i, 4)
FSO.copyFile strOld, strNew
Next
End Sub
|