Zitat:

Und noch ein kleines Problemchen : Die pdf Datei wird auf meinem Desktop gespeichert !!! (Das scheint wohl der Default zu sein) Danke für die Mühe

Private Sub Dateien_verschieben()
    On Error Resume Next
    ' Sourcedateien und PDF-Dateien in den Ergebnisordner verschieben
 
    arrtxtZuKopierendeDateien = Split(txtZuKopierendeDateien.Text, vbCrLf)
    inttxtZuKopierendeDateienAnzahl = UBound(arrtxtZuKopierendeDateien)
    For i = 0 To inttxtZuKopierendeDateienAnzahl - 1
        strFileCopySourcePDF = txtSystemPDFDestination.Text & "\" _
            & Left(arrtxtZuKopierendeDateien(i), (Len(arrtxtZuKopierendeDateien( _
            i)) - 3)) _
            & "pdf"
        strFileCopyDestinationPDF = txtTargetDir.Text & "\" _
            & Left(arrtxtZuKopierendeDateien(i), (Len(arrtxtZuKopierendeDateien( _
            i)) - 3)) _
            & "pdf"
        strFileCopySource = txtSourceDir & "\" & arrtxtZuKopierendeDateien(i)
        strFileCopyDestination = txtTargetDir.Text & "\" & _
          arrtxtZuKopierendeDateien(i)
        FileCopy strFileCopySourcePDF, strFileCopyDestinationPDF
        FileCopy strFileCopySource, strFileCopyDestination
        Kill strFileCopySourcePDF
        Kill strFileCopySource
    Next
 
End Sub