Sign in to follow this  
Followers 0
leomoon

.URL Shortcut Creator

3 posts in this topic

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

Share this post


Link to post
Share on other sites



I like one line solutions to this problem :blink:

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0