-------------------------------------
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\")
Set objFolderItem = objFolder.ParseName("myfolder")
objFolderItem.InvokeVerb("find")
-------------------------------------
Copy the above code to Notepad, and save as "Search.VBS". Double-clicking
the file will open a Search window, with the default folder "C:\Myfolder"
selected.
--
Regards,
Ramesh Srinivasan, Microsoft MVP [Windows XP Shell/User]
Windows® XP Troubleshooting
http://www.winhelponline.com
This now reads from top to bottom.
=========================================================
news://msnews.microsoft.com/
[email protected]
Regards,
Ramesh Srinivasan, Microsoft MVP [Windows XP Shell/User]
=========================================================
This says:
------------------START--------------------
{C4EE31F3-4768-11D2-BE5C-00A0C9A83DA1}
is search for files.
objShell.Open "c:\somewhere"
For Each window in AllWindows
If CheckRegEntryForFullPathInTitlebar() = True then
If window.title="c:\somewhere" then a=window.ShowBrowserBar
("{EFA24E61-B078-11d0-89E4-00C04FC9E26E}", True)
else
If window.title="somewhere" then a=window.ShowBrowserBar
("{EFA24E61-B078-11d0-89E4-00C04FC9E26E}", True)
end if
Next
-------------------END----------------------
That code isn't complete. I didn't write the function to check if
Show Full Path in Titlebar is on or off. I was leaving that to you.
objShell.Open "c:\somewhere"
For Each window in AllWindows
If window.title="somewhere" then
a=window.ShowBrowserBar("{EFA24E61-B078-11d0-89E4-00C04FC9E2
6E}", True)
Next
Is the code if the user is using Windows defaults settings. User
replaces C:\somewhere with their path and in If
window.title="somewhere" with the folder name.
=========================================================
Anothing thing is that the GUID
"{EFA24E61-B078-11d0-89E4-00C04FC9E26E}" is for Favorites band. For
Search band, use "{30D02401-6A81-11D0-8274-00C04FD5AE38}"
Alternately:
- - -
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\")
Set objFolderItem = objFolder.ParseName("myfolder")
objFolderItem.InvokeVerb("find")
=========================================================-
I am the OP and it is brilliant for me that you guys have applied your
technical knowledge. Thank you.
Unfortunately I am not at all familar with what I do with this code. I
am happy enough making changes in the registry but is that where that
code goes?
Can someone tell me what I need to do with it. Thanks agaIn!
