Jump to content
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble

MSFN is made available via donations, subscriptions and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, register and become a site sponsor/subscriber and ads will be disabled automatically. 

Sign in to follow this  
mmarable

VBScript to Create Favorites

Recommended Posts

mmarable    0

Well, I figured that it was about time I actually contributed something here seeing that I've gotten a lot of help from the forums.

It's a small contribution, but something that I hope is usefull to someone. It's a vb script:

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Install\Favorites.txt", ForReading)
Set objShell = WScript.CreateObject("WScript.Shell")
Set colEnvironmentVariables = objShell.Environment("Volatile")

strQLFolder = "C:" & colEnvironmentVariables.Item("HOMEPATH") & "\Favorites"

WScript.Echo strQLFolder
WScript.Echo

Do While objFile.AtEndOfStream <> True
       arrFAVRecord = split(objFile.Readline, ",")
       Wscript.Echo "Folder: " & arrFAVRecord(0)
       
       If objFSO.FolderExists(strQLFolder & "\" & arrFAVRecord(0)) Then
     Wscript.Echo "Folder exists."
   Else
     Set objFolder = objFSO.CreateFolder(strQLFolder & "\" & arrFAVRecord(0))
     Wscript.Echo "Folder does not exist. Creating..."
 End If
       
       Wscript.Echo "Title : " & arrFAVRecord(1)
       Set objURLShortcut = objShell.CreateShortcut(strQLFolder & "\" & arrFAVRecord(0) & "\" & arrFAVRecord(1) & ".URL")
       WScript.Echo "Link  : " & objURLShortcut
'        Wscript.Echo "URL   : " & arrFAVRecord(2)
       objURLShortcut.TargetPath = arrFAVRecord(2)
       WScript.Echo "URL   : " & objURLShortcut.TargetPath
       WScript.Echo
       objURLShortcut.Save
   i = i + 1
Loop

WScript.Echo "Total Count: " & i

objFile.Close

Share this post


Link to post
Share on other sites
rustycaps    0

Wouldn't it be a lot easier to just have the favorites folder on another partition then have the necessary Shell Folder and User Shell Folder reg entries changed accordingly, e.g.

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
"Favorites"="F:\\Favorites"

Ths is cut from the reg file I have to setup my specific folder, some of which are on that same f: partition - "my documents" and "my pictures" mainly, which eliminates the need to back them up each time you reinstall (aside from normal backups of course). I know some people just have a huge 120Gb (111Gb effective) partition or whatever, but partitions make things like this a lot easier.

Share this post


Link to post
Share on other sites
Radimus    0

favorites(URLs) are just little text files (INI format)... with only a few lines in them... they can easily be made with a batch and echo statements...

echo c:\MSFN.url > [DEFAULT]
echo c:\MSFN.url >> BASEURL=http://www.msfn.org/board/index.php?act=idx
echo c:\MSFN.url >> [InternetShortcut]
echo c:\MSFN.url >> URL=http://www.msfn.org/board/index.php?act=idx
echo c:\MSFN.url >> Modified=E00313B3D64FC40193
echo c:\MSFN.url >> IconFile=http://www.msfn.org/favicon.ico
echo c:\MSFN.url >> IconIndex=1

you batch writers can easily modify the above example to use variables for the file path

Share this post


Link to post
Share on other sites
prathapml    0

This, I suppose is called "power of community sharing".

Within less than a day, I see 3 ways of doing something - and whichever you like, use that method.

@mmarable

That's cool (about the script you made).

Hoping you would share more ideas with us.......

Share this post


Link to post
Share on other sites
WwTIPPYwW    0

Also - you could use the $OEM$\DOCS folder and add them to the default user folder. I forget the exact folder - but I've added them there.

Also a simple self extracting EXE.

I believe it can also be added to the answer file.

Share this post


Link to post
Share on other sites
pastl    0

@mmarable,

What do I have todo if i don't want to create a folder, just using Link Title and URL?

Like That?

,MSFN,http://www.msfn.org/

Thanks for your help.

pastl :)

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×