Autor Tema: Directorios comunes  (Leído 2222 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 219
Directorios comunes
« en: Octubre 10, 2012, 02:28:26 pm »
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: [Seleccionar]
'*********** 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 ***********