请问为什么这个无法删除TEMP里的文件夹?

daewoo 2003-11-23 09:52:08
TEMP里有个.PDW文件夹这个文件夹里包含一个.DLL文件.下面这个代码无法删除此文件夹和文件,而有不能继续往下进行.谢谢!
Private Sub Command1_Click()
Dim strPathName As String
strPathName = "c:\Windows\temp"
RecurseTree strPathName
End Sub
Sub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As String
On Error Resume Next
sPath = CurrPath & "\"
Debug.Print 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
Kill (sPath & sFileName)
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop
RmDir CurrPath
End Sub
...全文
376 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2003-11-24
  • 打赏
  • 举报
回复
看strPathName = "c:\Windows\temp"
不象是2000

出错的原因不出意外就是:
某个临时文件正在被系统使用
boydgmx 2003-11-24
  • 打赏
  • 举报
回复
文件夹中有太多文件,从而删除很慢,因此造成假死机!!
daewoo 2003-11-24
  • 打赏
  • 举报
回复
程序已经加入On Error Resume Next
但还是无法继续往下进行!
3661512 2003-11-23
  • 打赏
  • 举报
回复
什么系统?2000下要确定有没有权限,和该文件的属性是否是只读

7,781

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧