[jorgis]

κασπέρα σε όλα τα μέλη, καλησπέρα Νάσο. Σε ευχαριστώ πολύ για τον κώδικα : Θα ήταν άραγε υπερβολή να ζητήσω το παράθυρο του μηνύματος να κλείνει αυτόματα μετά από 2 ''
ευχαριστώ
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