Forum Discussion

MichaelP's avatar
MichaelP
Contributor
15 years ago

How do I loop through a folder of files and click on them to select them?

This is what I can't understand how to do from within the application I'm testing using a loop: 1. Click the AddFiles button to open a standard Windows 'Open' dialog, navigate to the folder con...
AlexeyKolosov's avatar
AlexeyKolosov
Icon for Staff rankStaff
15 years ago

Hi Michael,





Here is the script that demonstrates how to open each file from the 'C:\MyFiles' folder via the Open dialog invoked from Notepad. Before running the script, launch Notepad:







Sub OpeningAllFilesInFolder

  Dim notepad, wndNotepad, strDesktop

  FolPath = "C:\MyFiles"

  FilesNum = aqFileSystem.GetFolderInfo(FolPath).Files.Count

  Set FileItems = aqFileSystem.GetFolderInfo(FolPath).Files

  Set notepad = Sys.Process("notepad")

  Set wndNotepad = notepad.Window("Notepad")

  For i = 0 to FilesNum-1 

    wndNotepad.MainMenu.Click("File|Open...") 

    notepad.Window("#32770", "Open").OpenFile(FolPath & "\" & FileItems.Item(i).Name)

  Next

End Sub