19/09/2005, 19:27
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 351
Antigüedad: 20 años Puntos: 3 | |
| Hola no se si funciona con win 98 o inferiores pero capas que si
es mediante WScript.Shell , SpecialFolders
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 de Archivos de Programas
Private Sub Form_Load()
Dim WScript As Object
Set WScript = CreateObject("WScript.Shell")
' obtenemos la ruta del destino de Archivos de Programas
MsgBox WScript.SpecialFolders("Programs")
Set WScript = Nothing
End Sub |