Como llamar al Escritorio, desde una aplicación.

Monica
28 de Enero del 2005
Hola a [email protected], tengo una aplicación hecha con Access en la cual utilizo formularios Emergentes y Modales, como no lo puedo minimizar, he creado las siguientes Constantes, para llamar a “Mi Pc”, la “Papelera”...etc.

Como llamo al Escritorio?

Para lo demas pongo lo siguiente:

Private Const MiPc As String = "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
Private Const Papelera As String = "Explorer ::{645ff040-5081-101b-9f08-00aa002f954e}"
Private Const EntornoRed As String = "Explorer ::{208d2c60-3AEA-1069-a2d7-08002B30309D}"
Private Const Impresoras As String = "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" _
& "::{2227a280-3aea-1069-A2dE-08002B30309D}"
Private Const PanelControl As String = "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" _
& "::{21ec2020-3aea-1069-A2dd-08002B30309D}"


Y desde el formulario lo llamo asi:


Dim a As Long
a = Shell(MiPc, vbNormalNoFocus)