Deleting Directory with all the Subdirectories

Public Sub CleanAllPath(sPath As String)
Dim sName As String
Dim sFullName As String
' Array used for holding the directories,
' however collection may be used as well
Dim Dirs() As String
Dim DirsNo As Integer
Dim i As Integer
 If Not Right(sPath, 1) = "\" Then
 sPath = sPath & "\"
 End If
 ' clean all files in the directory
 sName = Dir(sPath & "*.*")
 While Len(sName) > 0
 sFullName = sPath & sName
 SetAttr sFullName, vbNormal
 Kill sFullName
 sName = Dir
 Wend
 
 sName = Dir(sPath & "*.*", vbHidden)
 While Len(sName) > 0
 sFullName = sPath & sName
 SetAttr sFullName, vbNormal
 Kill sFullName
 sName = Dir
 Wend
 
 ' read all the directories into array
 DirsNo = 0
 sName = Dir(sPath, vbDirectory)
 While Len(sName) > 0
 If sName <> "." And sName <> ".." Then
  DirsNo = DirsNo + 1
  ReDim Preserve Dirs(DirsNo) As String
  Dirs(DirsNo - 1) = sName
 End If
 sName = Dir
 Wend
 For i = 0 To DirsNo - 1
 CleanAllPath (sPath & Dirs(i) & "\")
 RmDir sPath & Dirs(i)
 Next
  
End Sub