I have 10 files in a folder(say D:\). Out of which there
are some .txt, .xls, .doc. I want to know how to get the
count of each file using qtp?
Printable View
I have 10 files in a folder(say D:\). Out of which there
are some .txt, .xls, .doc. I want to know how to get the
count of each file using qtp?
Hi Suneetham,
Please find the below code for the count particular file type.Insert the respective file extension & path.
Dim fso, f,f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\Documents and Settings\user\Desktop\New Folder")
Set fc = f.Files
For Each f1 In f.Files
If LCase(Right(f1.name, 4)) = ".doc" Then
b=f1.name
msgbox b
end if
Thanks,
MaluR
next
Here you can find the count of the files....
Set fso = createobject("scripting.filesystemobject")
set fold = fso.getfolder("d:\testing files")
set fc = fold.files
word=0
xls=0
txt=0
datatable.getsheet(1).addparameter"word",""
datatable.getsheet(1).addparameter"excel",""
datatable.getsheet(1).addparameter"text",""
datatable.gdtsteet(1).addparameter"Total Files",""
for each f in fold.files
if lcase(right(f.name, 4)) = ".doc" then
word=word+1
end if
if lcase(right(f.name,4))=".xls" then
xls=xls+1
end if
if lcase(right(f.name,4))=".txt" then
txt=txt+1
end if
next
datatable(1,1)=word
datatable(2,1)=xls
datatable(3,1)=txt
datatable(4,1)=fc.count
[COLOR="Magenta"]run and see the runtime datatable.[/COLOR]