VBA to check if folder has subfolder in it

[AC]

I found this code to check if a folder has files in it but I need to check if the folder has a sub folder in it, how can I do this in Excel 2003
Thanks

Dim fs, strFolderPath, oFolder

Set fs = CreateObject("Scripting.FileSystemObject")

strFolderPath = "d:\" ' this is your folder
Set oFolder = fs.GetFolder(strFolderPath)
If (oFolder.Files.Count = 0) Then
 'folder is Empty
  MsgBox "folder's empty"
Else
 ' folder isn't empty
  MsgBox "folder not empty. Files count: " & oFolder.Files.Count
End If

Set fs = Nothing

 

[AlphaFrog]

[COLOR=darkblue]Dim[/COLOR] fs, strFolderPath, oFolder
    
[COLOR=darkblue]Set[/COLOR] fs = CreateObject("Scripting.FileSystemObject")
    
strFolderPath = "d:\" [COLOR=green]' this is your folder[/COLOR]
[COLOR=darkblue]Set[/COLOR] oFolder = fs.GetFolder(strFolderPath)
    [COLOR=darkblue]If[/COLOR] (oFolder.[B]SubFolders[/B].Count = 0) [COLOR=darkblue]Then[/COLOR]
     [COLOR=green]'folder is Empty[/COLOR]
      MsgBox "folder's empty"
    [COLOR=darkblue]Else[/COLOR]
     [COLOR=green]' folder isn't empty[/COLOR]
      MsgBox "folder not empty. [B]Subfolders [/B]count: " & oFolder.[B]SubFolders[/B].Count
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]

[COLOR=darkblue]Set[/COLOR] fs = [COLOR=darkblue]Nothing[/COLOR]

 

[AC]

Thanks, that did it!