Le meilleur moyen serait de tirer parti de robocopy ... mais si cela doit être fait dans vbscript ... voici une méthode simple.
La méthode d'exécution ci-dessous s'exécutera cachée dans l'interface utilisateur.
Set fso = CreateObject("Scripting.FileSystemObject")
Set oshell = CreateObject("WScript.Shell")
EmptyFolder=oshell.ExpandEnvironmentStrings("%userprofile%") & "\Empty"
if NOT (fso.folderexists(EmptyFolder)) Then fso.CreateFolder(EmptyFolder)
oShell.run "robocopy ""%userprofile%\Empty"" ""%tmp%"" /purge", 0, true
if (fso.folderexists(EmptyFolder)) Then fso.DeleteFolder(EmptyFolder)