Welcome to MSFN

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.


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.