How to launch shortcut via VBScript?

[maysider]

How to launch shortcut via VBScript?

"Set WshShell = WScript.CreateObject("WScript.Shell")
girder=WshShell.Run("d:\aDokumenty\Apps\Girder\VBSaJS\BlueAudio.lnk",1,false)"

is not working, but when I click on the shortcut everything is OK

BlueAudio.lnk is a shortcut of bluetooth device, co there is not exact path

thank you

 

[dilettante]

You can do it sort of like:

'Open Sample.lnk in script's folder using the Windows Shell.

Option Explicit

Dim Path, Shell, Folder, FolderItem

Path = WScript.ScriptFullName
Path = Left(Path, InStrRev(Path, "\") - 1)

Set Shell = CreateObject("Shell.Application")
Set Folder = Shell.NameSpace(Path)
Set FolderItem = Folder.Parsename("Sample.lnk")
FolderItem.InvokeVerb "open"

Just put in your LNK file's path and name.

 

[tsuji]

>"Set WshShell = WScript.CreateObject("WScript.Shell")
If you put a quote in front, how do you expect it to work? (and then you say it is a typo?! and it still does not work? - I can anticipate all sort of responses.)
[tt]Set WshShell = WScript.CreateObject("WScript.Shell")[/tt]

 

[maysider]

to dilletante: thx but it doesnt help....Ive tried it for other links, it was working, but not for that shortcut