Adding "Find Target" Command

Ariel Morg · Aug 3, 2004

Hi all...

I frequently find original file locations by right clicking shortcut to the
file , choosing properties , then clicking the "Find Target" button.
Anyone knows if it's possible to get this option available directly on the
right click menu , and if so how ?
Any help apreciated...

TIA

Torgeir Bakken \(MVP\) · Aug 3, 2004

Ariel said:
I frequently find original file locations by right clicking shortcut to the
file , choosing properties , then clicking the "Find Target" button.
Anyone knows if it's possible to get this option available directly on the
right click menu , and if so how ?
Any help apreciated...

Hi

Using a VBScript, you can at least get this functionality using
right click / Send To.

Do like this:

Create a file called e.g. "Find Link Target.vbs" containing the script
below and create a shortcut to it in the SendTo folder (or just put
the file itself in the SendTo folder, but then you will see the .vbs
extension, at least if you have set Explorer to show file extensions).

This way, you can right click a link file in Explorer, use the SendTo
selection "Find Link Target".

To open the SendTo folder to put your script shortcut into, run this
from the Start\Run menu (include the quotes!):

"%USERPROFILE%\SendTo"

Find Link Target.vbs.vbs:

'--------------------8<----------------------

sTitle = "Find Target"

Set oArgs = WScript.Arguments
If oArgs.Count <> 1 Then
ErrMsgAndQuit
End If

sFile = oArgs(0)

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("scripting.FileSystemObject")

If Not oFSO.FileExists(sFile) Then
ErrMsgAndQuit
Elseif Not LCase(oFSO.GetExtensionName(sFile)) = "lnk" Then
ErrMsgAndQuit
End If

sTarget = oShell.CreateShortcut(sFile).TargetPath

' Launching Explorer with command line switches, more here:
'
' Windows Explorer Command-Line Options
' http://support.microsoft.com/?kbid=152457

If oFSO.FolderExists(sTarget) Then
oShell.Run "explorer.exe /n, /e, " & sTarget
Elseif oFSO.FileExists(sTarget) Then
oShell.Run "explorer.exe /n, /e, /select," & sTarget
Else
MsgBox "No file or folder found in shortcut target path!", _
vbInformation + vbSystemModal, sTitle
End If

Sub ErrMsgAndQuit
MsgBox "Error: You need to supply one shortcut file " _
& "as input parameter!", vbInformation + vbSystemModal, sTitle
Wscript.Quit
End Sub

'--------------------8<----------------------

Torgeir Bakken \(MVP\) · Aug 3, 2004

Ariel said:
I frequently find original file locations by right clicking shortcut to the
file , choosing properties , then clicking the "Find Target" button.
Anyone knows if it's possible to get this option available directly on the
right click menu , and if so how ?
Any help apreciated...

Hi

Using a VBScript, you can at least get this functionality using
right click / Send To.

Do like this:

Create a file called e.g. "Find Link Target.vbs" containing the script
below and create a shortcut to it in the SendTo folder (or just put
the file itself in the SendTo folder, but then you will see the .vbs
extension, at least if you have set Explorer to show file extensions).

This way, you can right click a link file in Explorer, use the SendTo
selection "Find Link Target".

To open the SendTo folder to put your script shortcut into, run this
from the Start\Run menu (include the quotes!):

"%USERPROFILE%\SendTo"

Find Link Target.vbs.vbs:

'--------------------8<----------------------

sTitle = "Find Target"

Set oArgs = WScript.Arguments
If oArgs.Count <> 1 Then
ErrMsgAndQuit
End If

sFile = oArgs(0)

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("scripting.FileSystemObject")

If Not oFSO.FileExists(sFile) Then
ErrMsgAndQuit
Elseif Not LCase(oFSO.GetExtensionName(sFile)) = "lnk" Then
ErrMsgAndQuit
End If

sTarget = oShell.CreateShortcut(sFile).TargetPath

' Launching Explorer with command line switches, more here:
'
' Windows Explorer Command-Line Options
' http://support.microsoft.com/?kbid=152457

If oFSO.FolderExists(sTarget) Then
oShell.Run "explorer.exe /n, /e, " & sTarget
Elseif oFSO.FileExists(sTarget) Then
oShell.Run "explorer.exe /n, /e, /select," & sTarget
Else
MsgBox "No file or folder found in shortcut target path!", _
vbInformation + vbSystemModal, sTitle
End If

Sub ErrMsgAndQuit
MsgBox "Error: You need to supply one shortcut file " _
& "as input parameter!", vbInformation + vbSystemModal, sTitle
Wscript.Quit
End Sub

'--------------------8<----------------------

Dave Patrick · Aug 3, 2004

Dave Patrick · Aug 3, 2004

Torgeir Bakken \(MVP\) · Aug 3, 2004

Dave said:
Very cool Torgeir

Thanks

Torgeir Bakken \(MVP\) · Aug 3, 2004

Dave said:
Very cool Torgeir

Thanks

Jerold Schulman · Aug 3, 2004

Hi all...

I frequently find original file locations by right clicking shortcut to the
file , choosing properties , then clicking the "Find Target" button.
Anyone knows if it's possible to get this option available directly on the
right click menu , and if so how ?
Any help apreciated...

TIA

Why aren't you right-clicking the shortcut, and clicking Target / Open
Container?

Jerold Schulman
Windows: General MVP
JSI, Inc.
http://www.jsiinc.com

Jerold Schulman · Aug 3, 2004

Hi all...

I frequently find original file locations by right clicking shortcut to the
file , choosing properties , then clicking the "Find Target" button.
Anyone knows if it's possible to get this option available directly on the
right click menu , and if so how ?
Any help apreciated...

TIA

Why aren't you right-clicking the shortcut, and clicking Target / Open
Container?

Jerold Schulman
Windows: General MVP
JSI, Inc.
http://www.jsiinc.com

Jerold Schulman · Aug 3, 2004

Very nice.

If you configure HKCR\lnkfile\shell\FindTarget\Command to invoke your script,
passing the %1 parameter for the .lnk file that was right-clicked,
it would be directly on lnk file context menus.

Hi

Using a VBScript, you can at least get this functionality using
right click / Send To.

Do like this:

Create a file called e.g. "Find Link Target.vbs" containing the script
below and create a shortcut to it in the SendTo folder (or just put
the file itself in the SendTo folder, but then you will see the .vbs
extension, at least if you have set Explorer to show file extensions).

This way, you can right click a link file in Explorer, use the SendTo
selection "Find Link Target".

To open the SendTo folder to put your script shortcut into, run this
from the Start\Run menu (include the quotes!):

"%USERPROFILE%\SendTo"

Find Link Target.vbs.vbs:

'--------------------8<----------------------

sTitle = "Find Target"

Set oArgs = WScript.Arguments
If oArgs.Count <> 1 Then
ErrMsgAndQuit
End If

sFile = oArgs(0)

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("scripting.FileSystemObject")

If Not oFSO.FileExists(sFile) Then
ErrMsgAndQuit
Elseif Not LCase(oFSO.GetExtensionName(sFile)) = "lnk" Then
ErrMsgAndQuit
End If

sTarget = oShell.CreateShortcut(sFile).TargetPath

' Launching Explorer with command line switches, more here:
'
' Windows Explorer Command-Line Options
' http://support.microsoft.com/?kbid=152457

If oFSO.FolderExists(sTarget) Then
oShell.Run "explorer.exe /n, /e, " & sTarget
Elseif oFSO.FileExists(sTarget) Then
oShell.Run "explorer.exe /n, /e, /select," & sTarget
Else
MsgBox "No file or folder found in shortcut target path!", _
vbInformation + vbSystemModal, sTitle
End If

Sub ErrMsgAndQuit
MsgBox "Error: You need to supply one shortcut file " _
& "as input parameter!", vbInformation + vbSystemModal, sTitle
Wscript.Quit
End Sub

'--------------------8<----------------------

Jerold Schulman
Windows: General MVP
JSI, Inc.
http://www.jsiinc.com

Jerold Schulman · Aug 3, 2004

Very nice.

If you configure HKCR\lnkfile\shell\FindTarget\Command to invoke your script,
passing the %1 parameter for the .lnk file that was right-clicked,
it would be directly on lnk file context menus.

Hi

Using a VBScript, you can at least get this functionality using
right click / Send To.

Do like this:

Create a file called e.g. "Find Link Target.vbs" containing the script
below and create a shortcut to it in the SendTo folder (or just put
the file itself in the SendTo folder, but then you will see the .vbs
extension, at least if you have set Explorer to show file extensions).

This way, you can right click a link file in Explorer, use the SendTo
selection "Find Link Target".

To open the SendTo folder to put your script shortcut into, run this
from the Start\Run menu (include the quotes!):

"%USERPROFILE%\SendTo"

Find Link Target.vbs.vbs:

'--------------------8<----------------------

sTitle = "Find Target"

Set oArgs = WScript.Arguments
If oArgs.Count <> 1 Then
ErrMsgAndQuit
End If

sFile = oArgs(0)

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("scripting.FileSystemObject")

If Not oFSO.FileExists(sFile) Then
ErrMsgAndQuit
Elseif Not LCase(oFSO.GetExtensionName(sFile)) = "lnk" Then
ErrMsgAndQuit
End If

sTarget = oShell.CreateShortcut(sFile).TargetPath

' Launching Explorer with command line switches, more here:
'
' Windows Explorer Command-Line Options
' http://support.microsoft.com/?kbid=152457

If oFSO.FolderExists(sTarget) Then
oShell.Run "explorer.exe /n, /e, " & sTarget
Elseif oFSO.FileExists(sTarget) Then
oShell.Run "explorer.exe /n, /e, /select," & sTarget
Else
MsgBox "No file or folder found in shortcut target path!", _
vbInformation + vbSystemModal, sTitle
End If

Sub ErrMsgAndQuit
MsgBox "Error: You need to supply one shortcut file " _
& "as input parameter!", vbInformation + vbSystemModal, sTitle
Wscript.Quit
End Sub

'--------------------8<----------------------

Jerold Schulman
Windows: General MVP
JSI, Inc.
http://www.jsiinc.com

Ariel Morg · Aug 4, 2004

Hi again all..

First of all , thanks alot to Torgeir for the awesome script !
I'm allmost there now , implemented the script in the send to and it works
just perfect

To Jerold

quote "Why aren't you right-clicking the shortcut, and clicking Target /
Open Container?"

I wish I had such an option , that's what I actually want , lol
Only way I know to do this is to click the properties first , which then
leaves an annoying properties window behind.

And the beat goes on....

Tried looking into the HKCR\lnkfile\shell\FindTarget\Command , but I got no
such path in the registry
Can only find HKCR\.lnk\ShellNew & HKCR\.lnk\ShellEx
Please advice further how to implement the script to the primary context
menu.

Thanks alot for all the help , you guyz rock !

"MOTD.: The game of life sux , but it got awesome graphics.."

Ariel Morg · Aug 4, 2004

Hi again all..

First of all , thanks alot to Torgeir for the awesome script !
I'm allmost there now , implemented the script in the send to and it works
just perfect

To Jerold

quote "Why aren't you right-clicking the shortcut, and clicking Target /
Open Container?"

I wish I had such an option , that's what I actually want , lol
Only way I know to do this is to click the properties first , which then
leaves an annoying properties window behind.

And the beat goes on....

Tried looking into the HKCR\lnkfile\shell\FindTarget\Command , but I got no
such path in the registry
Can only find HKCR\.lnk\ShellNew & HKCR\.lnk\ShellEx
Please advice further how to implement the script to the primary context
menu.

Thanks alot for all the help , you guyz rock !

"MOTD.: The game of life sux , but it got awesome graphics.."

Dave Patrick · Aug 4, 2004

Jerold meant for you to create it.

--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

:
<snip>
| Tried looking into the HKCR\lnkfile\shell\FindTarget\Command , but I got
no
| such path in the registry
| Can only find HKCR\.lnk\ShellNew & HKCR\.lnk\ShellEx
| Please advice further how to implement the script to the primary context
| menu.
<snip>

Dave Patrick · Aug 4, 2004

Jerold meant for you to create it.

--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

:
<snip>
| Tried looking into the HKCR\lnkfile\shell\FindTarget\Command , but I got
no
| such path in the registry
| Can only find HKCR\.lnk\ShellNew & HKCR\.lnk\ShellEx
| Please advice further how to implement the script to the primary context
| menu.
<snip>

Jerold Schulman · Aug 6, 2004

See tip 8336 » Add a 'Target / Open Container' to the right-click context menu
of your shortcuts?
in the 'Tips & Tricks' at http://www.jsiinc.com

Hi again all..

First of all , thanks alot to Torgeir for the awesome script !
I'm allmost there now , implemented the script in the send to and it works
just perfect

To Jerold

quote "Why aren't you right-clicking the shortcut, and clicking Target /
Open Container?"

I wish I had such an option , that's what I actually want , lol
Only way I know to do this is to click the properties first , which then
leaves an annoying properties window behind.

And the beat goes on....

Tried looking into the HKCR\lnkfile\shell\FindTarget\Command , but I got no
such path in the registry
Can only find HKCR\.lnk\ShellNew & HKCR\.lnk\ShellEx
Please advice further how to implement the script to the primary context
menu.

Thanks alot for all the help , you guyz rock !

"MOTD.: The game of life sux , but it got awesome graphics.."

Jerold Schulman
Windows: General MVP
JSI, Inc.
http://www.jsiinc.com

Jerold Schulman · Aug 6, 2004

See tip 8336 » Add a 'Target / Open Container' to the right-click context menu
of your shortcuts?
in the 'Tips & Tricks' at http://www.jsiinc.com

Hi again all..

First of all , thanks alot to Torgeir for the awesome script !
I'm allmost there now , implemented the script in the send to and it works
just perfect

To Jerold

quote "Why aren't you right-clicking the shortcut, and clicking Target /
Open Container?"

I wish I had such an option , that's what I actually want , lol
Only way I know to do this is to click the properties first , which then
leaves an annoying properties window behind.

And the beat goes on....

Tried looking into the HKCR\lnkfile\shell\FindTarget\Command , but I got no
such path in the registry
Can only find HKCR\.lnk\ShellNew & HKCR\.lnk\ShellEx
Please advice further how to implement the script to the primary context
menu.

Thanks alot for all the help , you guyz rock !

"MOTD.: The game of life sux , but it got awesome graphics.."

Jerold Schulman
Windows: General MVP
JSI, Inc.
http://www.jsiinc.com

finding target file	4	Feb 4, 2009
finding path to an .exe file	8	Feb 7, 2009
finding Favorites shortcut icon	11	Apr 26, 2011
Re-directing Start Menu target folder	5	Jan 28, 2009
How to easily copy a file to which a shortcut points?	4	Dec 2, 2009
File not visible in explorer window...but it's there.	4	Aug 10, 2009
Shortcut properties- Find Target error	9	Jan 16, 2005
Can't view Google Maps in 3D anymore? Here's the fix.	2	May 25, 2022

Adding "Find Target" Command

Ariel Morg

Torgeir Bakken \(MVP\)

Torgeir Bakken \(MVP\)

Dave Patrick

Dave Patrick

Torgeir Bakken \(MVP\)

Torgeir Bakken \(MVP\)

Jerold Schulman

Jerold Schulman

Jerold Schulman

Jerold Schulman

Ariel Morg

Ariel Morg

Dave Patrick

Dave Patrick

Jerold Schulman

Jerold Schulman

Ask a Question

Similar Threads