2017-09-23 127 views

回答

0

最好的方法是利用robocopy ...但如果它必須在vbscript中完成...這是一個簡單的方法。

下面的run方法將從用戶界面執行隱藏。

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) 
相關問題