Deltree3

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