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
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 |
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 |
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 |
How to read a text file from QC using QTP. I would like to do something like this. But instead read a file from QC and NOT from my local drive. Set fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("C:\test.txt", ForReading) Thanks
Hi. I have completed B.TECH(CS) , But I will go to "SECURITY CONSOLE OPERATING" [C.C CAMERA abservation]. IF interviwer asks " Why you choose this job ?" What we will say? urgent.........................urgent...........
Please clarify Automation and QTP both(names) are same or diff?
what is run-time object in qtp? explain with example?
Tell me one scenario, the complex functionality you have automated in your project?
How to Parameterize Object repository in QTP?
I am not finding pages and links in object spy on web testing. I am only getting window and winobject. where is the problem? thanks
Diff b/n image n bitmap checkpoints?
I want to install qtp software in my system, My operating system is vista . Anybody please suggest me how to get QTP software with licence key
For ex we are doing automate testing in that can we do some part of application recording, some part descriptive programing and some part general VB scripting like that .............
What are objects? how do you select the unknow object?
How u send bugs to dev'lpment team all at once or one by one or waht is the process?