Interested to Buy Any Domain ? << Click Here >> for more details...
Hi,
this is venkatesh.
Q: 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?
If U have any ans, plz write script for that...
- 4 Answers
- 14420 Views
- EDS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / bathi
set fso=createobject("scripting.filesystemobject")
set objfolder=fso.getfolder("XXX")
set fil=objfolder.files
for each fils in fil
fils1=fils1&fils.name
next
xls=split(fils1,".xls")
msgbox ubound(xls)
doc=split(fils1,".doc")
msgbox ubound(doc)
txt=split(fils1,".txt")
msgbox ubound(txt)
I guess, this will work........
Good Day........
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / balu
Dim filesys, demofolder, fil, filecoll, filist, ctr1, ctr2, ctr3
ctr1 = 0
ctr2 = 0
ctr3 = 0
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("c:\QTPtest")
Set filecoll = demofolder.Files
For Each fil in filecoll
If filesys.getExtensionName("c:\QTPtest\" & fil.Name) =
"txt" Then
ctr1 = ctr1+1
End If
If filesys.getExtensionName("c:\QTPtest\" & fil.Name) =
"xls" Then
ctr2 = ctr2+1
End If
If filesys.getExtensionName("c:\QTPtest\" & fil.Name) =
"doc" Then
ctr3 = ctr3+1
End If
'filist = fil.name
'filist = filist & " "
Next
msgbox("The count for Text files is: " & ctr1 & " The count
for Excel files is: " & ctr2 &" The count for Word files
is: " & ctr3 )
take and pandugachesukoooo....(if you r tulugu people you
can understood pandu... cool)
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / tvs ramakrishna chowdary
Dim filesys, demofolder, fil, filecoll, filist, ctr1, ctr2,
ctr3
ctr1 = 0
ctr2 = 0
ctr3 = 0
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("E:\mk")
Set filecoll = demofolder.Files
For Each fil in filecoll
x= fil.name
If filesys.getExtensionName("E:\mkt\" &x) = "txt"
Then
ctr1 = ctr1+1
msgbox "total text files:"&ctr1
End If
If filesys.getExtensionName("E:\mkt\" &x) ="xls"
Then
ctr2 = ctr2+1
msgbox "total excel files are:"&ctr2
End If
If filesys.getExtensionName("E:\mkt\" &x) ="doc"
Then
ctr3 = ctr3+1
msgbox "total word files are:"&ctr3
End If
msgbox x
Next
msgbox("The count for Text files is: " & ctr1 & " The
countfor Excel files is: " & ctr2 &" The count for Word
files is: " & ctr3 )
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / chowdary
hi balu and bathi good work .........
thnks........
| Is This Answer Correct ? | 0 Yes | 4 No |
What is Active Screen in QTP?
What is the difference in testing a client-server application and a web application?
How to Test the mainframe application?
Q) Please any body can help me how we can create descriptive programming if the application is not ready i.e we don't have unique property of object ? note:build not ready means we can't use object spy in build to get unique property .
with out object repository i need to launch IE and then navigate to a login page and then operate the objects within the page. How will be the script?
Can we create test script with out Step Generator?
What are all the common questions asked for the candidates having more than 1 yrs exp in QTP?
how you update scripts in qtp?
How do function returns a value?How can we pass one function value to other function as input
i am trying to automate yatra.com,in that site, when i go to automate the Leaving from field showing as a WEBEDIT, but when i enter 1 or 2 char, it displaying dropdownlist, i try to use keyboard automation to select the item from that list but it is not possible, can anybody help he. Thans for posting the Answer
How to load a object repository in QTP during runtime?
2 Answers BNP Paribas, Virtusa,
What environment does qtp run in?
WinRunner 
