Anyone know how to get at the object model of the favrites folder so I can
back it up in Excel, Access Word, with VBA? Is it something like a
filesystem object?

What type of file is it anyway?

Hi Spammastergrand,
Try:

Sub FavoritesFolderSave()
Dim FavoritesFolder As String
FavoritesFolder = CreateObject("WScript.Shell") _
..SpecialFolders("Favorites")
Application.ScreenUpdating = False
Workbooks.Add
Call FilesInFolder(FavoritesFolder, 0, True)
End Sub

Private Sub FilesInFolder(sFolderName As String _
, Optional Rw As Long = 0 _
, Optional SubDirs As Boolean = True)
Dim FSO As Object, SourceFolder As Object
Dim FileItem As Object, SubFolder As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(sFolderName)
Rw = Rw + 1
Cells(Rw, 1) = sFolderName
Cells(Rw, 1).Font.Bold = True
For Each FileItem In SourceFolder.Files
Application.StatusBar = SourceFolder & FileItem.Name
Rw = Rw + 1
Cells(Rw, 2) = FileItem.Name
Next FileItem
If SubDirs Then
For Each SubFolder In SourceFolder.SubFolders
Rw = Rw + 1
Call FilesInFolder(SubFolder.Path, Rw, True)
Next SubFolder
End If
Application.StatusBar = False
Columns("A:A").ColumnWidth = 2
Set FileItem = Nothing
Set SubFolder = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
End Sub

Regards,
MP

"Spammastergrand" a écrit dans le message de
news:wTIRd.74061$QS5.47026@trndny06...
Anyone know how to get at the object model of the favrites folder so I can
back it up in Excel, Access Word, with VBA? Is it something like a
filesystem object?

What type of file is it anyway?

And stealing shamelessly from Michel...

Option Explicit
Sub FavoritesFolderSave2()

Dim FavoritesFolder As String
Dim BackUpFolder As String
Dim FSO As Object

FavoritesFolder = CreateObject("WScript.Shell") _
.SpecialFolders("Favorites")

BackUpFolder = Environ("Temp") 'windows temp folder
'or an existing folder
'BackUpFolder = "C:\myFavoritesBackedUp"

Set FSO = CreateObject("scripting.filesystemobject")
FSO.CopyFolder Source:=FavoritesFolder, Destination:=BackUpFolder

End Sub

===
I usually back up my Favorites manually.

I do this:
Windows start button|Run
Favorites
up one level
copy that Favorites folder
and paste to where I like it.

Spammastergrand wrote:

Anyone know how to get at the object model of the favrites folder so I can
back it up in Excel, Access Word, with VBA? Is it something like a
filesystem object?

What type of file is it anyway?

--

Dave Peterson

Hi Spammastergrand,
If you want also the short cuts, modify the FilesInFolder procedure as
follows :

Private Sub FilesInFolder(sFolderName As String _
, Optional Rw As Long = 0 _
, Optional SubDirs As Boolean = True)
Dim FSO As Object, SourceFolder As Object
Dim FileItem As Object, SubFolder As Object
Dim FileType As String, n As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(sFolderName)
Rw = Rw + 1
Cells(Rw, 1) = sFolderName
Cells(Rw, 1).Font.Bold = True
For Each FileItem In SourceFolder.Files
Application.StatusBar = SourceFolder & FileItem.Name
If InStr(1, FileItem.Type, "Internet", 1) Then
Rw = Rw + 1
Cells(Rw, 2) = FileItem.Name
Rw = Rw + 1
n = ReadFile(FileItem.Path)
ActiveSheet.Hyperlinks.Add _
Cells(Rw, 3), n, , n, n
End If
Next FileItem
If SubDirs Then
For Each SubFolder In SourceFolder.SubFolders
Rw = Rw + 1
Call FilesInFolder(SubFolder.Path, Rw, True)
Next SubFolder
End If
Application.StatusBar = False
Columns("A:B").ColumnWidth = 1
Set FileItem = Nothing
Set SubFolder = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
End Sub

Private Function ReadFile(FilePath) As String
On Error Resume Next
ReadFile = CreateObject("Wscript.Shell") _
..CreateShortcut(FilePath).TargetPath
End Function

Regards,
MP

"Michel Pierron" a écrit dans le message de
...
Hi Spammastergrand,
Try:

Sub FavoritesFolderSave()
Dim FavoritesFolder As String
FavoritesFolder = CreateObject("WScript.Shell") _
.SpecialFolders("Favorites")
Application.ScreenUpdating = False
Workbooks.Add
Call FilesInFolder(FavoritesFolder, 0, True)
End Sub

Private Sub FilesInFolder(sFolderName As String _
, Optional Rw As Long = 0 _
, Optional SubDirs As Boolean = True)
Dim FSO As Object, SourceFolder As Object
Dim FileItem As Object, SubFolder As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(sFolderName)
Rw = Rw + 1
Cells(Rw, 1) = sFolderName
Cells(Rw, 1).Font.Bold = True
For Each FileItem In SourceFolder.Files
Application.StatusBar = SourceFolder & FileItem.Name
Rw = Rw + 1
Cells(Rw, 2) = FileItem.Name
Next FileItem
If SubDirs Then
For Each SubFolder In SourceFolder.SubFolders
Rw = Rw + 1
Call FilesInFolder(SubFolder.Path, Rw, True)
Next SubFolder
End If
Application.StatusBar = False
Columns("A:A").ColumnWidth = 2
Set FileItem = Nothing
Set SubFolder = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
End Sub

Regards,
MP

"Spammastergrand" a écrit dans le message de
news:wTIRd.74061$QS5.47026@trndny06...
Anyone know how to get at the object model of the favrites folder so I
can
back it up in Excel, Access Word, with VBA? Is it something like a
filesystem object?

What type of file is it anyway?