除文件和多空文件！



**************************************************************************
由入的文件路，如文件（或父文件）大小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*.*
???????

举个稍微明白点的例子