[Sham]

если плясать от исходного...

Код:

Option Explicit

Dim FSO
Dim ObjFolder, ObjSubFolder
Dim text, i, pre, fi, fobj, folder

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Set objFolder = fso.getfolder("c:\Someone_Folder")

Call ListSubFolders(objFolder,"")

'pre - для отступа...
Public Sub ListSubFolders(obj,pre)

	Set ObjSubFolder = obj.SubFolders
	For Each i In ObjSubFolder
	
		text = text & pre & i.name & vbcrlf
		Set folder = fso.getfolder(i.path)
		
		'тут вызовем саму себя
		Call ListSubFolders(i, pre & "  ")
		
		Set fobj = folder.Files		
		
		For Each fi in fobj
			text = text & pre & "  " & fi.name & vbcrlf
		Next
		
	Next
end Sub

WScript.Echo Text