VBScript to Create Favorites

[mmarable]

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

[Nologic]

Thanks this will be most helpful.

[rustycaps]

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.

[Radimus]

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

[prathapml]

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

[WwTIPPYwW]

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.

[pastl]

@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

[evilvoice]

seems to work that way...

[pastl]

@evilvoice,

thanks for your answer, I'll try it.

pastl