With the help of FileSystemObject, we can get the List of all subfolders in QTP. Lets assume that Folder Structure is:
Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.GetFolder("D:\PFolder")
Set c = b.SubFolders
For Each d in c
e=e&d.name&vbnewline
Next
msgbox e