Thema Datum  Von Nutzer Rating
Antwort
Rot Bilder Kopieren & namen nennen bei fehler
27.08.2021 08:08:45 Gast69559
NotSolved
27.08.2021 08:58:59 Gast68637
NotSolved

Ansicht des Beitrags:
Von:
Gast69559
Datum:
27.08.2021 08:08:45
Views:
69
Rating: Antwort:
  Ja
Thema:
Bilder Kopieren & namen nennen bei fehler

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
 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bilder Kopieren & namen nennen bei fehler
27.08.2021 08:08:45 Gast69559
NotSolved
27.08.2021 08:58:59 Gast68637
NotSolved