Palabras clave: ruta, directorios, carpetas, común, Windows, WSH
Autor: Juan M. Afán de Ribera (Happy) / Junio 2003
Extraído de: La web del Búho
Objetivo:
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
'*********** 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 ***********
