Const TEMPORARY_INTERNET_FILES = &H20&
( o* G7 z- W2 a8 H" k" y: u8 H v
& H: G4 w9 s6 _) m5 eSet objShell = CreateObject("Shell.Application")
& |% K2 P8 P1 h7 M9 i. | \ b2 VSet objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
8 Z1 h4 g# |9 A3 b0 o x
Set objFolderItem = objFolder.Self
5 E0 d, u' V5 w) l/ ~: lstrPath = objFolderItem.Path & "\*.*"
' u/ O, U) k- T8 ~. l" p2 R9 ] q$ k0 K- w
Set objFSO = CreateObject("Scripting.FileSystemObject")
( l) r r7 G: p) ]$ XobjFSO.DeleteFile(strPath)
; G5 t) X8 W% H8 P- |7 Y! Y" d5 n# ^
详细见:
% I' S2 O# l: u. q. Z* g) O# b4 Q
http://www.microsoft.com/technet ... /nov04/hey1102.mspx