刪除文件和多層空文件夾問題！该怎么解决
刪除文件和多層空文件夾問題！
**************************************************************************
由輸入的文件夾路徑，如文件夾（或父文件夾）大小為0（沒有文件）,循環刪除文件夾和其父輩文件夾
*************************************************************************
Public Function DelFolders(fldr As Variant)
Dim temp_str As String
Do While fldr.Size = 0
temp_str = fldr.ParentFolder.Path
fldr.Delete True
Set fldr = fso.GetFolder(temp_str)
If fldr = fso.GetFolder(root_str & "\ ") Then
Set fldr = Nothing
Set fso = Nothing
Exit Do
End If
Loop
End Function
哪位大俠幫我看一下上面代碼！
上面代碼的問題是：當我單獨刪除已建文件夾和文件時c:\1\1\1\*.*沒有問題，也能刪除。但是如果同時存在c:\1\1\1\*.*和c:\1\1*.*則在刪除第一個後，刪第二個報錯：run_time error '70 ' permission denied
求哪位大俠幫我看看啊！謝謝！
急啊！老大就在旁邊催啊！
------解决方案--------------------
没太看懂,你要把某个磁盘清空吗?你举个例子,到底要删除什么
------解决方案--------------------
c:\1\1\1\*.*和c:\1\1*.*
???????
举个稍微明白点的例子
**************************************************************************
由輸入的文件夾路徑，如文件夾（或父文件夾）大小為0（沒有文件）,循環刪除文件夾和其父輩文件夾
*************************************************************************
Public Function DelFolders(fldr As Variant)
Dim temp_str As String
Do While fldr.Size = 0
temp_str = fldr.ParentFolder.Path
fldr.Delete True
Set fldr = fso.GetFolder(temp_str)
If fldr = fso.GetFolder(root_str & "\ ") Then
Set fldr = Nothing
Set fso = Nothing
Exit Do
End If
Loop
End Function
哪位大俠幫我看一下上面代碼！
上面代碼的問題是：當我單獨刪除已建文件夾和文件時c:\1\1\1\*.*沒有問題，也能刪除。但是如果同時存在c:\1\1\1\*.*和c:\1\1*.*則在刪除第一個後，刪第二個報錯：run_time error '70 ' permission denied
求哪位大俠幫我看看啊！謝謝！
急啊！老大就在旁邊催啊！
------解决方案--------------------
没太看懂,你要把某个磁盘清空吗?你举个例子,到底要删除什么
------解决方案--------------------
c:\1\1\1\*.*和c:\1\1*.*
???????
举个稍微明白点的例子