Deleting Subfolders

[HeSaidJoe]

'this will kill all sub folders in C:\My Documents

Option Explicit


Sub ShowFolderList(folderspec)

    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
        s = f1.Name

        fs.Deletefolder (folderspec & "\" & s)
        s = s & vbCrLf
    Next
   
End Sub


Private Sub Image1_Click()
    Call ShowFolderList("C:\my documents")
End Sub