Dim FSO As New FileSystemObject
Dim LesFichiers, AutresFichiers, Origine, Destination as String
Set FSO = CreateObject("Scripting.FileSystemObject")
Origine = "C:\MonDossier"
Destination = "C:\Archives"
LesFichiers = Origine & "\" & "*.*"
FSO.CopyFile LesFichiers, "C:\Fichiers", True 'copie les fichiers du répertoire Origine vers "C:\Fichiers"
FSO.CopyFolder Origine, Destination 'Pour copier le répertoire Origine vers Destination
FSO.DeleteFolder Origine 'Supprimer le répertoire Origine
Mkdir "C:\MonDossier" 'Création du répertoire MonDossier
AutresFichiers = "C:\Fichiers\" & "*.*"
FSO.DeleteFile AutresFichiers 'Supprimer les Fichiers du répertoire Fichiers