How to find a shortcut in VBS

Question

0.00/5 (No votes)

See more:

hi all ,

I just want to know how can I check for a shortcut if it exists (say if MyProgram.lnk is exits on a desktop or not )in VBS Script .

Regards ,
Pradeep

Posted 6-Apr-14 20:56pm

iampradeepsharma

Add a Solution

2 solutions

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Answer 1 · 2014-04-08T09:11:00

Here is some vbs that looks for a specific shortcut

VB

Dim fso, msg
Dim filesearch

filesearch = "C:\Program Files\Bonjour\About Bonjour.lnk"

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filesearch) Then
   msg = filesearch + " exists."
Else
   msg = filesearch + " doesn't exist."
End If
wscript.echo msg

Taken essentially from this M$ article[^]

If you want to find the Desktop folder for current user try this

VB

Dim oNetW, sUName
Set oNetW = CreateObject("Wscript.Network")
Wscript.echo "User : " & oNetW.UserName
Wscript.echo "Desktop folder : " & "C:\Users\" & oNetW.UserName & "\Desktop"

Hackoo · Answer 2 · 2019-12-15T22:00:00

This batch script can extract the target path of any link with those extensions .lnk or .url

@echo off
Title Extracting target from shortcut (*.url) and (*.lnk) by Hackoo 2017
Mode con cols=62 lines=3 & color 9E
Set "Log=%~dp0TARGET_LINK_PATHS.txt"
Set "TmpVbs=%Tmp%\%~n0.vbs"
::************************************************************************
(
	echo set Ws = CreateObject("WScript.Shell"^)
	echo set Lnk = Ws.Createshortcut(WScript.Arguments(0^)^)
	echo WScript.echo Chr(34^) ^& Lnk.TargetPath ^& Chr(34^)
)>"%Tmpvbs%"
::************************************************************************
Set "Links=url lnk"
Set "Folders=%UserProfile%\Desktop %Public%\Desktop %AllUsersprofile%"
For %%i in (%Links%) Do (
	For %%F in (%Folders%) Do (
		Cls
		Echo *****************************************************************
		Echo "%%F" for "*.%%i" Links
		(echo. & echo     Scanning "%%F" for "*.%%i" Links ...)>CON
		Echo *****************************************************************
		Echo;
			For /f "delims=" %%L in ('Dir /b /s "%%F\*.%%i"') do (
	 			echo "%%L" & Call:ExtractTarget "%%L"
	 			echo  --------------------------------------------------------
			)
	)		
)>>"%Log%"
Start "" /MAX "%Log%"
If Exist "%Tmpvbs%" Del "%Tmpvbs%"
Exit
::*************************************************************************
:ExtractTarget <Link>
cscript //nologo "%Tmpvbs%" "%~1"
Exit /b
::*************************************************************************

How to find a shortcut in VBS

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

How to find a shortcut in VBS

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Existing Members

...or Join us