Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Perform iteration as per the number of files available in a folder
#2
Solved: 11 Years, 3 Months ago
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.
Reply


Messages In This Thread
RE: Perform iteration as per the number of files available in a folder - by inborntester - 02-22-2012, 10:15 PM

Possibly Related Threads…
Thread Author Replies Views Last Post
  Object not found during the 2nd iteration of an Action call in a For loop BGunay 0 955 04-23-2020, 07:08 PM
Last Post: BGunay
  Executing via create "RES"xx folder? nishitd 0 1,224 03-07-2018, 01:09 AM
Last Post: nishitd
  UFT Tool runs more than one iteration always cthossain 2 3,655 02-12-2017, 01:25 PM
Last Post: cthossain
  code for validation to create a sub folder smiley 0 1,515 10-19-2016, 10:08 PM
Last Post: smiley
  [UFT] Close opened folder robertosalemi 1 3,300 02-10-2016, 07:06 PM
Last Post: robertosalemi

Forum Jump:


Users browsing this thread: 1 Guest(s)