ich möchte in einem Verzeichnis PDF-Dateien kopieren, umbenennen und in ein anderes Laufwerk kopieren. Das kopieren funktioniert mit dem Befehl Copyfile s.Code:
Sub kopieren()
Dim sQuelle$, sZiel$, sDatei$
Dim iZeile As Long
sQuelle = "U:\test\"
sZiel = "D:\test\"
sDatei = "Plan1.pdf"
If Dir(sZiel & sDatei) = "" Then
FileCopy sQuelle & sDatei, sZiel & sDatei
MsgBox "Datei wurde kopiert!"
Else
MsgBox "Datei war schon vorhanden!"
End If
End Sub
Dies funkt soweit. Jetzt habe ich in meinem Excel-Sheet in Spalte A, Dateinamen
z.B. Plan1, Plan32 usw. In meinen Laufwerk sQuelle "U:\test\" habe diese Namen als PDF Dateien (z.B. Plan1.PDF). Jetzt sollte in meinem Excel-Sheet (Spalte A) nach einem idetischen Namen wie in meinem Laufwerk "U:\test\" gesucht werden und danach kopiert in Laufwerk (sZiel) und umbenannt nach dem jeweiligen Eintrag in Spalte B und C in meinem Excel-Sheet ! Hat jemand eine Idee ?
Gruß Detlef