Cómo escribir un comando para abrir "Mi PC" en vb6
¿Const? ¿Mi_computadora? =?&H11.
¿Oscuro? objShell? ¿Como? objeto,? ¿Carpeta obj? ¿Como? ¿Configuración de destino
? objShell? =?CreateObject("Shell. Aplicación")
¿Configuración? ¿Carpeta obj? =?objShell. Espacio de nombres (Mi PC)
¿Configuración? ¿Carpeta obj? =?objCarpeta. ¿Carpeta principal? ¿Configuración de la carpeta del escritorio
? objFolderItem? =?objCarpeta. self
objShell. ¿explorar? "::{ 20d 04 Fe 0-3 AEA-1069-a2d 8-08002 b 30309d } "? Abrir mi computadora
objshell en la dirección directa. ExploreobjFolderItem.Path
objShell. ¿explorar? "ObjFolder" abre la carpeta del escritorio.
¿Oscuro? ¿Palabra? ¿Como? Línea
¿Oscura? colArtículos? ¿Como? objeto,? objetoobjeto? ¿Como? ¿Configuración de destino
? colArtículos? =?objCarpeta. Proyecto
¿Para qué? ¿Cada? objetoobjeto? ¿existir? colItems
¿Y si? objItem. ¿nombre? =?"Papelera de reciclaje"? ¿Entonces qué? objShell. ¿explorar? objetoobjeto? Abrir papelera de reciclaje
¿Texto? =?Texto? y amplificador? "Nombre:?&?objItem.Name?&?vbTab?&?vbTab?&?"Ruta:"?&?objItem.Path?&?vbCrLf
Entonces
p>¿Texto? Todos los elementos del escritorio
¿Atenuados? WshShell("Wscript.Shell")
WshShell. ¿Dirección de mis documentos?