• Home
 · 
• Files/File Controls/Input/Output
 · 
• Deleting Directory with all the Subdirectories

Deleting Directory with all the Subdirectories

Delete a folder, with all it's subdirectories.

Inputs
The folder name, for example: "c:\My documents\stuff" will delete the "stuff" folder.

Assumes
Simple recursion.

Side Effects
System and hidden files will not be deleted, so the directory won't be deleted either. However You cen rewrite the function a little to work with hidden file.

Rate Deleting Directory with all the Subdirectories

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

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