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?