;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfDeleteTempInternetFilesV1 ()
Return RunHideWait (Environment ("ComSpec"), '/C RD /S /Q "' : ShortCutDir ("Cache") : '"')
;..........................................................................................................................................
; This UDF "udfDeleteTempInternetFiles" deletes the Internet Cache folder "Temporary Internet Files"
; including all subfolders and files without demand, where possible, using CMD.EXE's RD command in quiet mode.
;
; Return value is @TRUE if the program CMD.EXE was found, otherwise @FALSE.
;
; (c)Detlev Dalitz.20100302.
;..........................................................................................................................................
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfDeleteTempInternetFilesV2 ()
objShell = ObjectCreate ("Shell.Application")
Return RunHideWait (Environment ("ComSpec"), '/C RD /S /Q "' : objShell.Namespace(32).Self.Path : '"')
;..........................................................................................................................................
; This UDF "udfDeleteTempInternetFiles" deletes the Internet Cache folder "Temporary Internet Files"
; including all subfolders and files without demand, where possible, using CMD.EXE's RD command in quiet mode.
;
; Return value is @TRUE if the program CMD.EXE was found, otherwise @FALSE.
;
; (c)Detlev Dalitz.20100302, adapted from Les Ferch, les.ferch@jpmchase.com at Monday, December 22, 2008 03:21 PM.
;..........................................................................................................................................
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------


; Test.


blnResult1 = udfDeleteTempInternetFilesV1 ()

blnResult2 = udfDeleteTempInternetFilesV2 ()

Exit