我现在想删除C:\Documents and Settings\Administrator\Local Settings\History文件夹里的内容。它里面是显示的今天、昨天....
由于History是系统文件夹,不可以fso.DeleteFolder删除。我也不想删除。只想删除它里面的残留痕迹。参考别人的代码。发现实现不了功能。代码如下
Sub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As String
sPath = CurrPath & "\"
sFileName = Dir(sPath, 31)
Do While sFileName <> ""
If sFileName <> "." And sFileName <> ".." Then
If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹
newPath = sPath & sFileName
RecurseTree newPath
sFileName = Dir(sPath, 31)
Else
SetAttr sPath & sFileName, vbNormal
If (sPath & sFileName <> CurrPath And (InStr(sFileName, "index.dat") = False)) Then Kill (sPath & sFileName)
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop
SetAttr CurrPath, vbNormal
RmDir CurrPath
End Sub
如果是自建的一个文件夹。文件夹下面有内容。用这段代码是可以删除的。不知道为啥History就是不能删除。求达人帮忙。
由于History是系统文件夹,不可以fso.DeleteFolder删除。我也不想删除。只想删除它里面的残留痕迹。参考别人的代码。发现实现不了功能。代码如下
Sub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As String
sPath = CurrPath & "\"
sFileName = Dir(sPath, 31)
Do While sFileName <> ""
If sFileName <> "." And sFileName <> ".." Then
If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹
newPath = sPath & sFileName
RecurseTree newPath
sFileName = Dir(sPath, 31)
Else
SetAttr sPath & sFileName, vbNormal
If (sPath & sFileName <> CurrPath And (InStr(sFileName, "index.dat") = False)) Then Kill (sPath & sFileName)
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop
SetAttr CurrPath, vbNormal
RmDir CurrPath
End Sub
如果是自建的一个文件夹。文件夹下面有内容。用这段代码是可以删除的。不知道为啥History就是不能删除。求达人帮忙。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货