Vista - Re: automation of Windows Explorer search window

Marceepoo wrote:afilewindow.This should help...

Dim objShell, WshShell
Set objShell = WScript.CreateObject("Shell.Application")
set WshShell = WScript.CreateObject("WScript.Shell")
objShell.FindFiles
WScript.Sleep 500
WshShell.AppActivate "Find: All files"
WScript.Sleep 500
WshShell.SendKeys "foo{tab}bar{tab}"
WScript.Sleep 500
WshShell.SendKeys "c:\windows{enter}"

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

On May 28, 11:09 pm, "Todd Vargo" <tlva...@xxxxxx> wrote:Todd,

You use Win98, don't you? I ask because in XP, the FindFiles caption
is "Search Results" which points out one of the many problems with a
Sendkeys application.

The closest I could get to a usable (?) solution was something like
this ...

Dim objShell, WshShell
CreateObject("Shell.Application").FindFiles
with CreateObject("WScript.Shell")
do until .AppActivate("Find: All files") or _
.AppActivate("Search Results")
wsh.Sleep 500
Loop
wsh.Sleep 2000
if .AppActivate("Search Results") then _
.Sendkeys "{Tab 5}{enter}" : wsh.Sleep 200
.SendKeys "foo{tab}bar{tab}" : wsh.Sleep 200
.SendKeys "c:\windows"
end with

I still don't like it because of the open loop two second delay
required (on my machine) between confirming that the search screen was
open and the time the first keystroke could be sent reliably to it
(under XP). Without the delay, I kept opening the Internet search
function, instead.

This is a case where AutoIt (third party control - google search to
find a free copy) might be almost essential.

Tom Lavedas
===========
http://members.cox.net/tglbatch/wsh/

Tom Lavedas wrote:snip...Thanks, I tend to forget to mention when code needs modified to suit an OPs
needs/OS. On the one hand, the code seems obvious (to me) so I forget, but
OTOH, SCRIPT56.CHM is available.

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

I just went to my XP machine & did a couple of searches, saved them, & then
examined the contents in notepad (hex editor would probably be better).

There is some binary gobbledygook but it seems to be constant -- and you
also see your search terms as both ascii & unicode strings.

You may be able to construct a saved search file with the terms you want &
then open that, avoiding the use of sendkeys.

--
Good Luck,

Keith
Microsoft MVP [Windows Shell/User]



"Tom Lavedas" <tglbatch@xxxxxx> wrote in message
news:dcea7a91-608e-4212-803c-6341cbc32d0e@xxxxxx