Function ClearFilesFolders(strPath)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(strPath) Then
Set oFolder = fso.GetFolder(strPath)
For Each oFile In oFolder.files
fso.DeleteFile oFile'Deleting Files
Next
For Each oSubFolder In oFolder.SubFolders
fso.DeleteFolder oSubFolder'Deleting Folders
Next
Set oFolder =Nothing
End If
Set fso =Nothing
End Function
Call ClearFilesFolders("C:/Temp")'Temp folder's location may vary for different machine.
'Temp folder 可以是不同的LOCATION!