Desktop Internet Shortcut

[Gintaras]

On my PC sometimes works, sometimes not. Two files are identical, but file 1 works, file 2 not. Or works if URL but does not if url. Now works again after restarting firefox.

Macro Macro1193

Code:

Copy      Help

str name="yahoo2"
name+".url"
name-"$desktop$\"

str address="http://my.yahoo.com/"
address-"[InternetShortcut][]URL="
address+"[]"

out name
out address

address.setfile(name)

Or use this function.
Function CreateInternetShortcut

Code:

Copy      Help

;/
function $urlFile $urlTarget

Wsh.WshShell sh._create
Wsh.WshURLShortcut us=sh.CreateShortcut(_s.expandpath(urlFile))
us.TargetPath=urlTarget
us.Save

example
Macro Macro1196

Code:

Copy      Help

CreateInternetShortcut "$desktop$\yahoo.url" "http://my.yahoo.com/"