Favs Script

[mtdmitchell]

Hi

i cant seem to get the re-direct favs script from the Wiki to work? IS there something wrong with my code?

i get the following error: line; 4,char;1, Error; object required: 'fso', code; 880a01a8, source; microsft Vbscript runtime error.

see my code below;

Create Favorites Folder


If Not fso.FolderExists("N:\MY Settings\Favorites") Then
call noFavorites
End If

sub noFavorites
filesys.CreateFolder "N:\MY Settings\Favorites"
END sub

'Re-Direct Favorites

' Variable Initilisations
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
strUserName = objNetwork.UserName
strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\User Shell Folders\Favorites"
strRedirectionPath = "N:\MY Settings\Favorites"

' Write the new Favorites path
objShell.RegWrite strRegKey, strRedirectionPath

' Variable Destruction
Set objShell = Nothing
Set objNetwork = Nothing

[plexer]

Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")

???

[plexer]

Set FSO = CreateObject("scripting.filesystemobject")
If Not fso.FolderExists("c:\Favorites") Then
call noFavorites
End If

sub noFavorites
fso.CreateFolder "c:\Favorites"
END sub

Should work.

[mtdmitchell]

Set FSO = CreateObject("scripting.filesystemobject")
If Not fso.FolderExists("c:\Favorites") Then
call noFavorites
End If

sub noFavorites
fso.CreateFolder "c:\Favorites"
END sub

Should work.

Cheers my friend, that works fine now