Dim strFolderPath, strUserLocalAppData, objFso
    Set objShell = CreateObject("Wscript.Shell")
    Set objFso = CreateObject("Scripting.FileSystemObject")
    strUserLocalAppData = objShell.ExpandEnvironmentStrings("C:\Windows")
    strFolderPath = strUserLocalAppData & "\Prefetch" 'esto tampoco "\Prefetch\*"
    On Error Resume Next
    Call objFso.DeleteFolder(strFolderPath, True)
    Err.clear

   

Dim strFolderPath, strUserLocalAppData, objFso
     
    Set objShell = CreateObject("Wscript.Shell")
    Set objFso = CreateObject("Scripting.FileSystemObject")
	

    strUserLocalAppData = objShell.ExpandEnvironmentStrings("%LocalAppData%")
    strFolderPath = strUserLocalAppData & "\Tempz*"

    On Error Resume Next
    Call objFso.DeleteFolder(strFolderPath, True)
    If Err Then
	  objFso.CreateFolder strFolderPath
	  strFolderPath = strUserLocalAppData & "\Tempz01" 'por ejemplo crea una carpeta llamada asi
      WScript.Echo(Err.Description)
    End If
    Err.clear

Dim strFolderPath, objFso
strFolderPath = "C:\Users\miUsuario\AppData\Local\Temp[b]*[/b]"
Set objFso = CreateObject("Scripting.Filesystemobject")

If objFso.FolderExists(strFolderPath) then
    objFso.DeleteFolder strFolderPath, True
End If

Set objFso = Nothing