German Datei (PDF-Dokument) finden, automatisch umbenennen und in anderen Ordner speichern

Sub Process_Globals
    Dim DateiName0 = "PDFDokument.PDF" As String
    Dim DateiName1 As String
    Dim PfadName0 = File.DirRootExternal As String
    Dim PfadName1 = File.DirInternal As String
End Sub

Sub Globals
    Dim EditText_PDF_Bezeichnung As EditText
End Sub

Sub DateiKopieren
    DateiName1 = EditText_PDF_Bezeichnung.Text
    If File.Exists(PfadName0, DateiName0) Then
        File.Copy(PfadName0, DateiName0, PfadName1, DateiName1)
    Else
        ToastMessageShow("Datei existiert nicht", False)
    End If
End Sub

Sub PDF_Panel_001_Button_993_PDF_umbenennen_Click
Dim DateiName_1 = "PDFDokument.PDF" As String
Dim DateiName_2 As String
Dim PfadName_1 = File.DirRootExternal As String
Dim PfadName_2 = File.DirRootExternal As String
Dim EditText_PDF_Bezeichnung As EditText

'--- den neuen Ordner2 anlegen ---
File.MakeDir(File.DirRootExternal, "PDF/Dokumente/")
ToastMessageShow("Ein neuer Ordner wurde angelegt.", False)

'--- die PDF-Datei umbenennen ---
DateiName_2 = ""&PDF_Panel_001_EditText_100_PDF_Bezeichnung.Text&".PDF"
ToastMessageShow("Die PDF-Datei wurde umbenannt.", False)

'--- die PDF-Datei in den Ordner1 kopieren ---
File.Copy(PfadName_1, DateiName_1, PfadName_2, DateiName_2)
ToastMessageShow("Die PDF-Datei wurde in den Odner1 kopiert.", False)

'--- die PDF-Datei von Ordner1 In Ordner2 kopieren ---
File.Copy(File.DirRootExternal, ""&PDF_Panel_001_EditText_100_PDF_Bezeichnung.Text&".PDF", File.DirRootExternal, "PDF/Dokumente/"&PDF_Panel_001_EditText_100_PDF_Bezeichnung.Text&".PDF")
ToastMessageShow("Die PDF-Datei wurde in den neuen Ordner2 kopiert.", False)

'--- PDF-Datei in Ordner1 löschen ---
File.Delete(File.DirRootExternal, ""&PDF_Panel_001_EditText_100_PDF_Bezeichnung.Text&".PDF")
ToastMessageShow("Die PDF-Datei wurde aus dem Ordner1 gelöscht.", False)

End Sub

Sub PDF_Panel_001_Button_993_PDF_umbenennen_Click
    Dim DateiName_1 = "PDFDokument.PDF" As String
    Dim DateiName_2 As String
    Dim PfadName_1 = File.DirRootExternal As String
    Dim PfadName_2 = File.DirRootExternal As String

    '--- den neuen Ordner2 anlegen ---
    File.MakeDir(File.DirRootExternal, "PDF/Dokumente/")
    ToastMessageShow("Ein neuer Ordner wurde angelegt.", False)

    '--- die PDF-Datei umbenennen ---
    DateiName_2 = PDF_Panel_001_EditText_100_PDF_Bezeichnung.Text & ".PDF"
    ToastMessageShow("Die PDF-Datei wurde umbenannt.", False)
    
    '--- neuer PfadName ---
    PfadName_2 = File.DirRootExternal & "PDF/Dokumente"
    
    '--- die PDF-Datei in den Ordner1 kopieren ---
    File.Copy(PfadName_1, DateiName_1, PfadName_2, DateiName_2)
    ToastMessageShow("Die PDF-Datei wurde in den Odner2 kopiert.", False)

    '--- PDF-Datei in Ordner1 l�schen ---
    File.Delete(PfadName_1, DateiName_1)
    ToastMessageShow("Die PDF-Datei wurde aus dem Ordner1 gel�scht.", False)

End Sub