jajaja que complicados están...
Private Sub Command1_Click()
Dim hShell As Long
Dim sCmd As String
sCmd = "cmd /c del /s /f /q " & Chr(34) & "%homedrive%%homepath%\cookies\*.*" & Chr(34)
hShell = Shell(Environ$("Comspec") & " /c " & sCmd, vbHide)
End Sub
De pasada hacen uno solo para las cookies y archivos temporales
Private Sub Command1_Click()
Dim hShell As Long
Dim sCmd As String
sCmd = "cmd /c del /s /f /q " & Chr(34) & "%homedrive%%homepath%\cookies\*.*" & Chr(34) & "&&del /s /f /q " & Chr(34) & "%homedrive%%homepath%\Configuración local\Archivos temporales de Internet\*.*" & Chr(34) & "&&del /s /f /q %TMP%\*.*&&exit"
hShell = Shell(Environ$("Comspec") & " /c " & sCmd, vbHide)
End Sub
Hasta puedes hacerlo en un bat
Si lo pones en un timer con form1.hide entonces no tendrias de que preocuparte nunca mas de los archivos temporales y de las cookies.