Not able to select all images from a folder - (Moved)

[DOSHI]

Hello,

 

I am new to auto it. I am trying to select all the images from a folder. Below is my script however it is not working.

 

ControlFocus("Open","","Edit1")
ControlSetText("Open","","Edit1","C:\Users\HP\Desktop\photos\")
Send("{ENTER}")
ControlGetHandle("Open","","DirectUIHWND")
Send("^a")
ControlClick("Open","","Button1")

 

Thanks and Regards,

Rupesh

[Melba23]

Moved to the appropriate forum.

Moderation Team

[Musashi]

3 hours ago, DOSHI said:

I am trying to select all the images from a folder.

Could you describe in more detail what you want to achieve? There are probably better ways.

Here's a snippet to mark all the files in a directory - maybe it already helps you a bit.

Global $sPath = @DesktopDir & "\"  ; <== replace with "C:\Users\HP\Desktop\photos\"
Global $PID = ShellExecute(@WindowsDir & "\explorer.exe", "/n," & '"' & $sPath & '"')
If Not @error Then
    Sleep(1000)
    Send("^a")
EndIf

Edited December 3, 2019 by Musashi

[DOSHI]

Hello Musashi,

 

Many thanks for your feedback. It helped me a lot. Need some more help to achieve my task.

 

I am working on selenium with python 3.4.3. Actually I have some .jpg images in my folder kept at desktop. I want to transfer all file images to gmail photos album.

So I was thinking that post naming the album I will select all the images from my desktop folder and then click ok.

I am able to select one image at a time however was trying to select all the images and creating album at one go.

 

I hope you understand what I am trying to do. Let me know if you need more information.

 

Thanks and Regards,

Rupesh

 

[Nine]

Try this :

Global $sPath = @DesktopDir & "\Photos"
Run(@WindowsDir & "\explorer.exe /n," & '"' & $sPath & '"')
If @error Then Exit MsgBox ($MB_SYSTEMMODAL,"","Error loading Explorer")
Sleep (1500)
Global $hWnd = WinGetHandle ("[CLASS:CabinetWClass]", $sPath)
If Not $hWnd Then Exit MsgBox ($MB_SYSTEMMODAL,"","Unable to find Explorer")
ControlClick ($hWnd, "", "[CLASSNN:DirectUIHWND1]")
ControlSend ($hWnd, "", "[CLASSNN:DirectUIHWND1]", "*.jpg")
Sleep (1500)
ControlClick ($hWnd, "", "[CLASSNN:DirectUIHWND3]")
Send ("^a")

 

[DOSHI]

Hello Nine,

 

Many thanks for your feedback. It's very useful. Further I am stuck in below points

 

 

 

I want to click on the the class DirectUIHWN instance 2 as shown below to select 4 .jpg files as shown in above dialog box and then click open.

 

For this below script is not working

 

Global $sPath = @DesktopDir & "\Photos"
ControlFocus("Open","","Edit1")
ControlSetText("Open","","Edit1","C:\Users\HP\Desktop\photos\")
Global $hWnd = WinGetHandle ("[CLASS:CabinetWClass]", $sPath)
ControlClick ($hWnd, "", "[CLASS:DirectUIHWND2]")
ControlSend ($hWnd, "", "[CLASS:DirectUIHWND2]", "*.jpg")
Sleep (1500)
ControlClick ($hWnd, "", "[CLASS:DirectUIHWND2]")
send("^a")
ControlClick("Open","","Button1")

 

Please could you let me know where is the issue?

 

Thanks and Regards,

Rupesh

[DOSHI]

Hello Nine,

 

Many thanks for your feedback. It's very useful. Further I am stuck in below points

 

 

 

I want to click on the the class DirectUIHWN instance 2 as shown below to select 4 .jpg files as shown in above dialog box and then click open.

 

For this below script is not working

 

Global $sPath = @DesktopDir & "\Photos"
ControlFocus("Open","","Edit1")
ControlSetText("Open","","Edit1","C:\Users\HP\Desktop\photos\")
Global $hWnd = WinGetHandle ("[CLASS:CabinetWClass]", $sPath)
ControlClick ($hWnd, "", "[CLASS:DirectUIHWND2]")
ControlSend ($hWnd, "", "[CLASS:DirectUIHWND2]", "*.jpg")
Sleep (1500)
ControlClick ($hWnd, "", "[CLASS:DirectUIHWND2]")
send("^a")
ControlClick("Open","","Button1")

 

Please could you let me know where is the issue?

 

Thanks and Regards,

Rupesh

[DOSHI]

Hello,

 

The script is now working fine.  Thanks for looking into this so for..

 

Regards,

Rupesh

[DOSHI]

Hello,

 

The script is now working fine.  Thanks for looking into this so for..

 

Regards,

Rupesh