怎样用VB删除IE临时文件
怎样用VB删除IE临时文件? 在DOS下无法用Dir无法列出其中的文件,因此无法使用Kill来删除这些文件。...请问要怎样才能删除IE临时文件。 可否举例,谢谢!

[解决办法]
Option Explicit
Private gstrSEP_DIR As String

Sub FPDeleteTree(inPath As String)

'定义临时变量
Dim tmpPath As String, curPath As String
Dim tmpFileName As String

'保存指定路径

curPath = inPath: AddDirSep curPath



'不理目录下文件属性，统统删除。

tmpFileName = Dir(curPath, vbNormal + vbHidden + vbSystem)

Do While Not tmpFileName = " "

SetAttr curPath & tmpFileName, vbNormal

Kill curPath & tmpFileName

tmpFileName = Dir

Loop

'循环删除子目录及其内容

tmpPath = Dir(curPath, vbDirectory)

Do While tmpPath = ". " Or tmpPath = ".. "

tmpPath = Dir

Loop

Do While Not tmpPath = " "

curPath = curPath & tmpPath

AddDirSep curPath

tmpFileName = Dir(curPath, vbNormal + vbHidden + vbSystem)

Do While Not tmpFileName = " "

SetAttr curPath & tmpFileName, vbNormal

Kill curPath & tmpFileName

tmpFileName = Dir

Loop

tmpPath = Dir(curPath, vbDirectory)

Do While tmpPath = ". " Or tmpPath = ".. "

tmpPath = Dir

Loop

If tmpPath = " " Then

RmDir curPath

curPath = inPath

AddDirSep curPath

tmpPath = Dir(curPath, vbDirectory)

Do While tmpPath = ". " Or tmpPath = ".. "

tmpPath = Dir

Loop

End If

Loop

AddDirSep inPath

RmDir inPath

End Sub

'******************************************************************************

' 子程序: AddDirSep

'******************************************************************************

Sub AddDirSep(strPathName As String)

If Right$(RTrim$(strPathName), Len(gstrSEP_DIR)) <> gstrSEP_DIR Then

strPathName = RTrim$(strPathName) & gstrSEP_DIR

End If

End Sub


Private Sub Command1_Click()
gstrSEP_DIR = "\ "
FPDeleteTree ( "e:\www ")
End Sub
上找的，不知道你是否有用？