• Announcements

    • xper

      MSFN Sponsorship and AdBlockers!   07/10/2016

      Dear members, MSFN is made available via subscriptions, donations and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, become a site sponsor and ads will be disabled automatically and by subscribing you get other sponsor benefits.
Sign in to follow this  
Followers 0
mmarable

VBScript to Create Favorites

9 posts in this topic

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

0

Share this post


Link to post
Share on other sites

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.

0

Share this post


Link to post
Share on other sites

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

0

Share this post


Link to post
Share on other sites

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.......

0

Share this post


Link to post
Share on other sites

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.

0

Share this post


Link to post
Share on other sites

@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 :)

0

Share this post


Link to post
Share on other sites

@evilvoice,

thanks for your answer, I'll try it.

pastl :)

0

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

  • Recently Browsing   0 members

    No registered users viewing this page.