Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...


i have .xls,.txt,.doc files are there (together). i want
find only .xls file among them? how can we write function?

Answers were Sorted based on User's Feedback



i have .xls,.txt,.doc files are there (together). i want find only .xls file among them? how can w..

Answer / uday kumar_anem

Hi,

Please try with this script:

Set fileSysObj=CreateObject("Scripting.FileSystemObject")
folderPath="D:\"
If fileSysObj.folderexists(folderPath) then
Set fileObj=fileSysObj.getfolder(folderPath)
Set fileObjs=fileObj.files
For Each FileName In fileObjs
If FileName.type="Microsoft Excel Worksheet" then
MsgBox("This is the excel file "&FileName.Name)
End if
next
else
MsgBox("Folder does not exist")
End if

Is This Answer Correct ?    5 Yes 0 No

i have .xls,.txt,.doc files are there (together). i want find only .xls file among them? how can w..

Answer / ramchandra patil

Hi,

@Uday Kumar perfect code...its working perfect

Thanks Uday Kumar..



Ramchandra Patil
9699851282

Is This Answer Correct ?    0 Yes 0 No

i have .xls,.txt,.doc files are there (together). i want find only .xls file among them? how can w..

Answer / kamesh

using the extention (.xls) in code..see below code
Here i open the file from mentioned path and read and write
the values on that.


Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\DIM.txt", 1, True) ' open to
empty file and also use for open the file which is already
created
WriteLineToFile = f.ReadAll 'Read all the file line to
line
msgbox WriteLineToFile

Set MyFile1 = fso.CreateTextFile
("c:\kamesh.txt",True) 'create new empty file
MyFile1.WriteLine WriteLineToFile ' Write all the stuf
in created file
MyFile1.Close

Is This Answer Correct ?    0 Yes 5 No

Post New Answer

More QTP Interview Questions

in qtp if we record a object and we record the object using virtual wizard then by which way the object is recognized that means recorded

0 Answers  


When ‘option explicit’ keyword is used in qtp?

0 Answers  


I want to create Excel object on another machine which is in network i written the code "Set se=createobject ("Excel.Application","\\ankur")"here \\ankur is the name of that machine but i m getting the error of permission denied create object can anybody help me

2 Answers  


With what extension you can save the list of tests in a file to run in test batch runner?

0 Answers  


if we can find the status of script in qtp that either it's pass or fail then why we need to put this status on different excel file or log file in hybrid framework .please let me know asap thanks

1 Answers   iCreate,


Explain the Load testing process?

1 Answers   Crea,


in qtp 3 sheets is there in data table like global, action1, action2. I want to check the rows and columns in action2. how can check using script?

2 Answers   Polaris,


can we run the scripts of qtp 8.2 in the qtp7.0?

2 Answers  


How you calling actions in qtp?

0 Answers  


what type of automation is follwed in the project?

0 Answers   Google,


Where you are storing your script?

0 Answers  


can u tell me the the cost of automation tool QTP ?

7 Answers   Ducont, Sonata,


Categories