[nasos23]

Καλησπέρα σε όλους.
Γιώργη δοκίμασε τον παρακάτω κώδικα με το πάτημα του κουμπιού "copy_btn"

Private Sub copy_btn_Click()
Dim sourceFolder As String
    Dim destFolder As String
    Dim file As String

    ' Ορισμός φακέλου πηγής και φακέλου προορισμού
    sourceFolder = "C:\Users\USER\OneDrive\Έγγραφα\ Α\"
    destFolder = "C:\Users\USER\OneDrive\Έγγραφα\ Β\"

    ' Αντιγραφή όλων των αρχείων XML από τον φάκελο πηγής στον φάκελο προορισμού
   
     file = Dir(sourceFolder & "*.xml")
    While file <> ""
        FileCopy sourceFolder & file, destFolder & file
        file = Dir
    Wend

    ' Διαγραφή  των αρχείων XML στον φάκελο πηγής
    file = Dir(sourceFolder & "*.xml")
    While file <> ""
        Kill sourceFolder & file
        file = Dir
    Wend
    MsgBox "Τα αρχεία xml αντιγράφηκαν επιτυχώς στο φάκελο Β. Έγινε καθαρισμός" & _
    " του φακελου Α", vbInformation, "ΕΝΗΜΕΡΩΣΗ"
End Sub