Perform iteration as per the number of files available in a folder

[rohit330]

Hi All,

I am a newbie in QTP. I am trying to automate some part of my test.

Please have a look on the following code.

Code:

Function readTextFromFile(pathToFile) Set fso = createObject("Scripting.FileSystemObject") If fso.FileExists(pathToFile) = True Then Set f = fso.OpenTextFile(pathToFile, 1) readTextFromFile = f.ReadAll f.Close End If End Function text = readTextFromFile("Path of file") Set clipboard = createobject("mercury.clipboard") //Thanks to inborntester clipboard.Clear clipboard.SetText(text) SwfWindow("MyApplication").SwfEditor("xmlTextBox").Type micCtrlDwn + "v" + micCtrlUp

In the above code, am reading a file and writing this to a variable "text".
Then copying this to my application text area and submits.
Similarly i want to read other files from this folder util the last file.
Like this i have five folders. If i select option 1 in my application i have to read files from 1st folder, after that i have to select option 2 in my application and then folder has to changed to 2nd folder. Will i be able to include all these 5 otpions within a program or i have to write 5 different pgm.

Do i have to use vb script or any QTP logic is there to iterate. I have aware of some terminologies like parameterization.

Your time and advices are much appreciated. Thanks in advance all..

If am posting in the wrong thread, kindly pardon.

Regards

[inborntester]

Code:

' assume that folder1, folder2, folder3, folder4, folder5 are the five folders located in the root folder c:\folder ' option1, option2, option3, option4, option5 are the corresponding options for above folders ' replace your root folder rootfolder="c:\Folder" set oFS = CreateObject("Scripting.FileSystemObject") ' replace the below code with your application specific code from you get option selectedoption=inputbox("enter option as option1 or option2 or option3 or option4 or option5") Set folderoption = CreateObject("Scripting.Dictionary") ' replace options and folder name as per your need folderoption.Add "option1", "folder1" folderoption.Add "option2", "folder2" folderoption.Add "option3", "folder3" folderoption.Add "option4", "folder4" folderoption.Add "option5", "folder5" set oFolder = oFS.GetFolder(rootfolder&"\"&folderoption.item(selectedoption)) msgbox(oFolder) Set oFiles = oFolder.Files For each folderIdx In OFiles msgbox(oFolder&"\"&folderIdx.Name) text = readTextFromFile(oFolder&"\"&folderIdx.Name) Set clipboard = createobject("mercury.clipboard") clipboard.Clear clipboard.SetText(text) msgbox(text) SwfWindow("MyApplication").SwfEditor("xmlTextBox").Type micCtrlDwn + "v" + micCtrlUp Next Function readTextFromFile(pathToFile) Set fso = createObject("Scripting.FileSystemObject") If fso.FileExists(pathToFile) = True Then Set f = fso.OpenTextFile(pathToFile, 1) readTextFromFile = f.ReadAll f.Close End If End Function

i attached the folder i used. remove all the msgbox codes, i have used for tracking purpose.

[rohit330]

Hey thanks yaar...i used d above code with some modification...working fine now..

Best Regards