Getting count of the toral nos. files present inside a folder in Win7

[arijitdhar]

Hello,

I am using QTP 9.2 and I am trying to get the total number of files present inside a folder in Windows 7 OS.

In Windows Vista OS I am getting the count using "GetItemsCount" :

Code:

totalcount = Windows("Object").WinListView("SysListView32").GetItemsCount

Since, XP and Vista OS is recognizing any folder window as Class = WinListView

But, in Win7 OS QTP is recognizing the folder window as Class = WinObject, as a result I am unable to use GetItemCount in case of Win7 OS.

It will be nice if anyone can help me on this.

Thanks,
Arijit Dhar

[sreekanth chilam]

Hi Arijith,

For this type of requirements only we do have FSO(File system object).
Go thru the help file for FSO & implement accordingly.

Anyhow i am giving you the below solution.

Code:

Set objFileSysOb = CreateObject("Scripting.FileSystemObject")
Set colFolderName = objFileSysOb.GetFolder("give entire folder path here")
Set vFiles =colFolderName.Files
Sno=0
For each i in vFiles
d=Split(i,"\")
FileName=d(ubound(d))
Sno=Sno+1
msgbox "File "&Sno&" : "&FileName
Next

msgbox "Number of files in Current Folder : "&vFiles.count

[arijitdhar]

Hi Sreekanth,

Thanks a lot for helping out. The solution you have provided is working fine in Windows 7.
I have also modified it a little bit to get count and names of the subfolders inside the given folder.

Thanks,
Arijit Dhar