2017-09-23 4 views

Répondre

0

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)