Collection(names) of Subfolders in a Folder in QTP

December 21, 2008

Script in QTP to get Collection(names) of Subfolders in a Folder.Below script is to get Subfolders names in Folder V1Where Folder V1 is in Fdrive.
Dim a,b, c, d, e
Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.GetFolder("C:\Animesh")
Set c = b.SubFolders
For Each d in c
e=e&d.name&vbnewline
Next
msgbox e

You Might Also Like

0 comments