TIA Comfort Panel, pdf File umkopieren source mit Laufnummer

[Supermario73]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Gemeinde
Wir können ein bestimmtes File in einen bestimmten Ordner umkopieren, das funktioniert. Doch leider erstellt der PDF Drucker das File mit einer Laufnummer.
Nun stellt sich die Frage, wie kann des File (oder alle Files) mit temp_ beginnend in das Verzeichnis trotzdem verschoben werden?
Source: "\Storage Card SD\temp_XXXX.pdf" X=unbekannt, soll kopiert werden.

Besten Dank für Eure Hilfe!!

Sub save_print_screen()
Dim fs, SourceFile, DestFile, Zeit, hr, min, sek, ZeitNeu, name

' Variabeln definieren
Zeit          = Time
hr            = Left(Zeit, 2)
min           = Mid(Zeit, 4, 2)
sek           = Right(Zeit, 2)
ZeitNeu       = hr & "-" & min & "-" & sek

SourceFile = "\Storage Card SD\temp_0001.pdf"
DestFile   = SmartTags("Recipe_Actual_value_Folder_Name") & "\PrintScreen_" & Date & "_" & ZeitNeu & ".pdf"

'Check the free memory
MediaCheckCE

'Create object - Objekt erstellen
Set fs = CreateObject("FileCtl.FileSystem")   

If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    Err.Clear
    Exit Sub
End If

fs.FileCopy SourceFile, DestFile

If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    Err.Clear
    SmartTags("Recipe_Actual_value_Create_Report_successful") = False
    Exit Sub
End If

fs.kill SourceFile
ShowSystemAlarm "Report wurde erfolgreich erstellt"

'Verwendeten Speicher wieder freigeben
'Free used storage
Set fs = Nothing

End Sub

 

[Supermario73]

Hat sich erledigt, habe nun beim Druckertreiber eine Einstellung gefunden, welche die Laufnummer weg lässt.

Beste Grüsse