Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

104 - Obtener paths del sistema usando Windows script host

Este ejemplo utiliza Windows script host para listar en un control ListBox alguna de las principales carpetas del sistema, como la carpeta de fuentes, Mis Documentos, Escritorio, inicio, etc..

Formulario

vista del formulario de ejemplo para listar las rutas de windows

En el ejemplo, se realiza con automatización, es decir creando una referencia con CreateObject, para acceder a Windows sripting Host. Luego con el método Specialfolder, se le pasa el nombre de la carpeta a dicho método con el cual se obtiene el path del sistema.

Colocar un List1 y un Command1

Private Sub Command1_Click() 'Variable para usar WSH Dim Wscript As Object 'Creamos la referencia para usar Windows Scripting Host Set Wscript = CreateObject("WScript.Shell") 'Escritorio de todos los Users List1.AddItem Wscript.SpecialFolders("AllUsersDesktop") 'Menú inicio List1.AddItem Wscript.SpecialFolders("AllUsersStartMenu") 'Carpeta de programas List1.AddItem Wscript.SpecialFolders("AllUsersPrograms") 'Carpeta de inicio de todos los users List1.AddItem Wscript.SpecialFolders("AllUsersStartup") 'Path del escritorio List1.AddItem Wscript.SpecialFolders("Desktop") 'Path de la carpeta favoritos List1.AddItem Wscript.SpecialFolders("Favorites") 'Path de la carpeta plantillas List1.AddItem Wscript.SpecialFolders("Templates") 'Path de la carpeta de inicio List1.AddItem Wscript.SpecialFolders("Startup") 'Path del menú inicio List1.AddItem Wscript.SpecialFolders("StartMenu") 'Path de la carpeta Enviar a List1.AddItem Wscript.SpecialFolders("SendTo") 'Path de la carpeta Documentos recientes List1.AddItem Wscript.SpecialFolders("Recent") 'Path de programas List1.AddItem Wscript.SpecialFolders("Programs") 'Impresión List1.AddItem Wscript.SpecialFolders("PrintHood") 'Documentos List1.AddItem Wscript.SpecialFolders("MyDocuments") 'Path de la carpeta de las fuentes List1.AddItem Wscript.SpecialFolders("Fonts") If Not Wscript Is Nothing Then Set Wscript = Nothing End If End Sub Private Sub Form_Load() Command1.Caption = " Listar rutas especiales " End Sub

Recursos vb 6.0 - Enlaces relacionados

Ejemplo que recupera las carpetas del sistema usando el Api

Buscar en Recursos vb