Public Sub KillFolderTree(sFolder As String)
Dim sCurrFilename As String sCurrFilename = Dir(sFolder & "\*.*", vbDirectory) Do While sCurrFilename <> "" If sCurrFilename <> "." And sCurrFilename <> ".." Then If (GetAttr(sFolder & "\" & sCurrFilename) _ And vbDirectory) = vbDirectory Then Call KillFolderTree(sFolder & "\" & sCurrFilename) sCurrFilename = Dir(sFolder & "\*.*", vbDirectory) Else Kill sFolder & "\" & sCurrFilename End If End If sCurrFilename = Dir Loop On Error Resume Next RmDir sFolder End Sub |