Jörg Lorenz: Wichtig: VBA-Script!? Dateiprüfung?

Beitrag lesen

Hi felix,

datname = Cells(lngZ, 1) & ".pdf"
    If Dir(datname) <> "" Then

fast. ;-)

Dim lngZ As Long
Dim strQuellpfad As String, strZielpfad As String
Dim datname As String

'Schleife über die Zellen:
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    'Quellpfad zusammenbasteln:
    strQuellpfad = "C:\test" & Cells(lngZ, 1) & ".pdf"
    'Zielpfad zusammenbasteln:
    strZielpfad = "C:\test" & Cells(lngZ, 2) & "" & Cells(lngZ, 1) & ".pdf"
    'Kopieren:
    if dir(strquellpfad) <> "" then
       FileCopy strQuellpfad, strZielpfad
    else
       msgbox strquellpfad & " nicht vorhanden."
    end if
Next
End Sub

(ungetestet)

Viele Grüße

Jörg