.URL Shortcut Creator

[amin84]

Hi, I've been searching for a function to make a url shortcut but they were SO COMPLICATED! And sometimes they would give an error. So here is what I wrote that will do the same thing and it is VERY SIMPLE!!! Please keep in mind to create the URL, the folder should already exist.

;Creating URLs
_qtUrlCreator(@FavoritesDir&"\Free Online Games.url", "http://arcadengine.com/")
_qtUrlCreator(@FavoritesDir&"\LeoMoon Studios.url", "http://leomoon.com/")
_qtUrlCreator(@FavoritesDir&"\Love is Comix.url", "http://loveiscomix.com/")
;URL Creator Function
Func _qtUrlCreator($urlName, $urlPath)
    Local $iniGenFile
    $iniGenFile = '[{000214A0-0000-0000-C000-000000000046}]' & @CRLF _
        & 'Prop3=19,2' & @CRLF _
        & '[InternetShortcut]' & @CRLF _
        & 'URL='&$urlPath & @CRLF _
        & 'IDList='
    FileWrite($urlName, $iniGenFile)
EndFunc

[Ascend4nt]

I like one line solutions to this problem

IniWrite($sURLFile,"InternetShortcut","URL",$sURL)

[amin84]

  On 8/6/2010 at 6:04 AM, 'Ascend4nt said:

I like one line solutions to this problem

IniWrite($sURLFile,"InternetShortcut","URL",$sURL)

Yours is even better.