export list of subdirectories to excel

[abhijit]

I modified your script and merged it with mine. I hope this is what you want.

Dim objFolder, obFileList, folderpath, fullpath, xl, i, j
folderpath = "C:\Test"
 
Dim objFSO, objFile, objFc, objF
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\")
Set objFc = objFolder.SubFolders
Set xl = CreateObject("Excel.application")
if not objFSO.folderexists("d:\Forms") then
        objFSO.CreateFolder("d:\Forms")
end if
if not objFSO.fileexists("d:\Forms\Test.xls") then 
    xl.application.workbooks.add
    xl.application.save("d:\Forms\Test.xls")
    xl.application.quit
End if
xl.Application.Workbooks.Open "d:\Forms\Test.xls"
xl.Application.Visible = True
set objSheet = xl.ActiveWorkbook.Worksheets(1)
 
i = 1
j = 1
 
For Each objF in objFC
    objSheet.Cells(i, j).value = objF.Name
    i = i + 1
Next
 
xl.DisplayAlerts = FALSE
objSheet.saveas("d:\Forms\Test.xls")
xl.application.quit