一个也许很简单的怪问题

dir(  "C:\Documents and Settings\zx\Local Settings\Temporary Internet Files\*.*")
返回空字符串
kill "C:\Documents and Settings\zx\Local Settings\Temporary Internet Files\*.*" 提示找不到文件
这个问题怎么解决？？？那目录下有10几M几百个文件的。

解决方案 »

  1.   

    Const TEMPORARY_INTERNET_FILES = &H20&Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
    Set objFolderItem = objFolder.Self
    strPath = objFolderItem.Path & "\*.*"Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile(strPath)Const COOKIES = &H21&Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(COOKIES)
    Set objFolderItem = objFolder.Self
    strPath = objFolderItem.Path & "\*.*"Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile(strPath)