'*********** Código ***************
'
' SpecialFolderPath
'
' Función que devuelve la ruta de los
' siguientes directorios comunes a
' los sistemas Windows:
'
'   "AllUsersDesktop"
'   "AllUsersStartMenu"
'   "AllUsersPrograms"
'   "AllUsersStartup"
'   "Desktop"
'   "Favorites"
'   "Fonts"
'   "MyDocuments"
'   "NetHood"
'   "PrintHood"
'   "Programs"
'   "Recent"
'   "SendTo"
'   "StartMenu"
'   "Startup"
'   "Templates"
' 
' Forma de uso, por ejemplo con Favoritos:
' Msgbox  SpecialFolderPath ("Favorites")
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Function SpecialFolderPath(FolderName) As String
Dim wShell As Object 'New WshShell

    Set wShell = CreateObject("WScript.Shell")
    SpecialFolderPath = wShell.SpecialFolders(FolderName)
    Set wShell = Nothing
        
End Function
'********** Fin código ***********

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)