I tried several solutions
findtarget.reg
opentargetdir.vbs
and a script I took on a random forum:
@echo off
If exist %windir%\FT.vbs (
echo Uninstall?&echo.&pause
reg delete HKCR\lnkfile\shell\FT /f
del %windir%\FT.vbs
exit
)
reg add "HKCR\lnkfile\shell\FT" /f /ve /t REG_SZ /d "&Find Target..."
reg add "HKCR\lnkfile\shell\FT\command" /f /ve /t REG_SZ /d "WScript.exe %windir%\FT.vbs \"%%1\""
more +10 < %0 >%windir%\FT.vbs && exit /b 0
dim ws,objArgs,strPath
Set objArgs = WScript.Arguments
if objArgs.Count>0 then
strPath=mid(objArgs(0),instr(objArgs(0),"/")+1,len(objArgs(0))-instr(objArgs(0),"/"))
end if
set ws=CreateObject("Wscript.Shell")
ws.run "Explorer /select, " & GetTargetPath(strPath)
Function GetTargetPath(LinkName)
On Error Resume Next
Dim Shortcut
Set Shortcut = CreateObject("Wscript.Shell").CreateShortcut(LinkName)
GetTargetPath = Shortcut.TargetPath
Shortcut.Save
Set Shortcut = Nothing
End Function
The problem is that none of them work for all shorcuts and eventually they only take me to a temporal folder where the icon is placed, etc
For example, it doesn't work with the live msn shortcut, and for the nero 10 shortcut it takes me to C:\WINDOWS\Installer\{7A5D731D-B4B3-490E-B339-75685712BAAB}



Help

Back to top









