Autor: Leandro
--------------
Con SpecialFolders podemos obtener las Rutas de las carpetas especiales
Ej: Para cada caso:
------------------
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates
Ej: para visualizar la ruta de Mis Documentos
-------------------------------------------
Edited by: LucianoCódigo:Private Sub Form_Load() Dim WScript As Object Set WScript = CreateObject("WScript.Shell") ‘obtenemos la ruta del destino de Mis Documentos MsgBox WScript.SpecialFolders("MyDocuments") Set WScript = Nothing End Sub