Creating shortcuts

[Tranbjerg]

Hi

I need to create shortcuts that is pointing on a speciel .ini file, but I can't create it with the right destination. The destination should be:

c:\notes\notes.exe "=c:\documents and settings\jek\application data\notes\notes.ini"

Instead it creates this destination that doesn't work:
"c:\notes\notes.exe" "=c:\documents and settings\jek\application data\notes\notes.ini"

The code:
Dim struser

Set WshShell = CreateObject("WScript.Shell&quot
Set WshNetwork = WScript.CreateObject("WScript.Network&quot

struser= WshNetwork.username
strDesktopPath = WshShell.SpecialFolders("Desktop&quot
StrStartMenu = WshShell.SpecialFolders("StartMenu&quot

Set objDeskShortcutLnk = WshShell.CreateShortcut(strDesktopPath & "\ Lotus Notes.lnk&quot
objDeskShortcutLnk.TargetPath = "c:\Notes\notes.exe"" ""=C:\Documents and Settings\" & struser & "\Application Data\Notes\notes.ini"
objDeskShortCutLnk.WorkingDirectory = "C:\Notes\"
objDeskShortCutLnk.IconLocation = "c:\Notes\notes.exe, 0"
objDeskShortcutLnk.Save

Set objStartShortcutLnk = WshShell.CreateShortcut(strStartMenu & "\Lotus Notes.lnk&quot
objStartShortcutLnk.TargetPath = "c:\Notes\notes.exe"" ""=C:\Documents and Settings\" & struser & "\Application Data\Notes\notes.ini"
objStartShortCutLnk.WorkingDirectory = "C:\Notes\"
objStartShortCutLnk.IconLocation = "c:\Notes\notes.exe, 0"
objStartShortcutLnk.Save

 

[PHV]

Use the Arguments property of the WshShortCut Object.
The TargetPath property must be set to the pathname, without argument.

Hope This Help
PH.

 

[Tranbjerg]

Hi

I'm nearly there. I just need that the destination has "" at the argument.

The code
Set objShtCut = objShell.CreateShortcut(strDesktopPath & "\ Lotus Notes.lnk&quot
objShtCut.TargetPath = "c:\Notes\notes.exe"
objShtCut.Arguments = objShtCut.Arguments & "=C:\Documents and Settings\" & struser & "\Application Data\Notes\notes.ini"
objShtCut.WorkingDirectory = "C:\Notes\"
objShtCut.IconLocation = "c:\Notes\notes.exe, 0"
objShtCut.Save

The result
C:\Notes\notes.exe =C:\Documents and Settings\jek\Application Data\Notes\notes.ini

It should be
C:\Notes\notes.exe "=C:\Documents and Settings\jek\Application Data\Notes\notes.ini"

I have tried to but extra "" on the argument setting, but that results in a VBScript error

Regards
Jens

 

[dilettante]

Add the quotes:

objShtCut.Arguments = objShtCut.Arguments & """=C:\Documents and Settings\" & struser & "\Application Data\Notes\notes.ini"""

 

[PHV]

Or play with Chr(34)

Hope This Help
PH.

 

[Tranbjerg]

Hi

It's working

I just had to add the extra quotes.

Thanks
Jens