Search And Run From The Dock

Just in case no one has solved the problem of getting the WinXP function of Search and Run to execute from the docks, any of them, I have a solution.

I found a couple of Visual Basic scripts that execute some Shell Object functions to provide access to these utilities.

If anyone needs them, please let me know. Also, if anyone has another, more elegant solution, please let me know.

The script I found are very small, about 5 lines of code a piece and run quickly when executed.

Peace,

Grusic

#9122

please post or mail the scripts my email is roystone@charter.net

#9125

Yeah, please post the code - if It's using the Shell Object you can easily make an VBS - no need to code an seperate application!

Greetings,

Cassiel

#9126

email to kyefunATshaw.ca

thanks

or u can post it here

#9127

Why not post the scripts in text format here?

#9139

From the Designtechnika forum, posted by Marvilla:

"1) Open up your 'Start' menu. Find the Run Icon on the right hand side.

2) Open up Explorer and drag the Run icon from your start menu to any folder....for example the root of C:\

This will create a shortcut named C:\&Run... (or something similar)

3) Now right-click and rename that &Run... shortcut to just: Run

4) Drag any other .exe or link to Y's dock...right-click 'Property' and in the 'link to' and 'Work Folders' place the link to the Run shortcut (on my box this is C:\Run

Works on my box..hope that works for you guys "

From the same forum, posted by AtomB:

"check here if you can't drag it from the start menu, 3 small tools that you can put in your dock. http://www.tsoftcentral.com/tools/index.html "

Many thanx and a tip of the hat to both of them and all the other wonderful people at Designtechnika... we owe you big, dudes! :D

#9158

Hint: This works only if you don't have the classic startmenu turned on!

Enjoy,

Cassiel

#9172

Hi all,

I didn't post the code here because I didn't know if the problem had already been solved.

I tried the shortcut to Run/Search someone suggested and I never got it to work.

Anyway, without further delay. Ladies and gentlemen, I present the code! ;)

*Start Run.vbs*

Option Explicit

'Objects

Dim objShell

Set objShell = WScript.CreateObject("Shell.Application")

objShell.FileRun

'Clean Up

On Error Resume Next

Set objShell = Nothing

*End Run.vbs*

That's the Run function, just copy and paste this code into a text browser and save it as run.vbs. Then double click to execute. As for the docks, just link them in as one would with normal *.exe.

*Start Search.vbs*

Option Explicit

'Objects

Dim objShell

Set objShell = WScript.CreateObject("Shell.Application")

objShell.FindFiles

'Clean Up

On Error Resume Next

Set objShell = Nothing

*End Search.vbs*

That's the Search function. Just copy and paste this code into a text browser and save it as Search.vbs. Then double click to execute. As for the docks, just link them in as one would with normal *.exe.

Peace,

Grusic

#9183

Please exclude the *Start ...vbs* and *End ...vbs* lines from the scripts when pasting them into a text editor.

I just put those there as delimiters.

#9186

Oh yes, just as a side note.

The only problem, there just had a be one, with these scripts is that when they are executed, the run indicators will not be displayed by the docks.

I assume this has to do with the nature in which the Windows Script Host works.

If anyone knows how to make the run indicators work when executing windows script functions, please let me know and I will incorporate it into the scripts.

Grusic

#9188

Did these work out ok for everybody?

#9239

As I expected: It works fine! Thanks a lot Grusic!

So long,

Cassiel

#9241