Visual Basic - obtener el path de 'Archivos de programa'

Life is soft - evento anual de software empresarial
 
Vista:

obtener el path de 'Archivos de programa'

Publicado por Mario (1 intervención) el 04/06/2007 08:36:31
Hola

Me gustaría saber si se puede obtener de alguna manera el path de 'Archivos de programa'.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:obtener el path de 'Archivos de programa'

Publicado por Cecilia Colalongo (3117 intervenciones) el 04/06/2007 09:36:18
Puedes hacer:

Const CSIDL_DESKTOP = &H0
Const CSIDL_PROGRAMS = &H2
Const CSIDL_PERSONAL = &H5
Const CSIDL_FAVORITES = &H6
Const CSIDL_STARTUP = &H7
Const CSIDL_RECENT = &H8
Const CSIDL_STARTMENU = &HB
Const CSIDL_COMMON_STARTMENU = &H16
Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_COMMON_STARTUP = &H18
Const CSIDL_COMMON_FAVORITES = &H1F

Const MAX_PATH = 260

Private Type SHITEMID
cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Function GetSpecialfolder(CSIDL As Long) As String
Dim r As Long
Dim IDL As ITEMIDLIST
r = SHGetSpecialFolderLocation(100, CSIDL, IDL)
If r = NOERROR Then
Path$ = Space$(512)
r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
Exit Function
End If
GetSpecialfolder = ""
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Y todavía más sencillo!!!!!

Publicado por Nuevo (12 intervenciones) el 04/06/2007 12:30:21
Definitivamente que tienes graves problemas! hazte ver y pronto!

Y si tienes algun problema con alguien resuelvelo con esa persona!!! cobarde
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Y todavía más sencillo!!!!!

Publicado por Nuevo (12 intervenciones) el 04/06/2007 13:11:00
No me digas????????? Y que plumero se ve???????? como el tuyo Raul/Quique/Silvana???????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Y todavía más sencillo!!!!!

Publicado por Viejo (4 intervenciones) el 04/06/2007 12:31:56
Ya que sabes tanto porque no contestas las otras preguntas???????? porque no contesto quien quieres molestar???????

Eres tan evidente!!! aqui te haces llamar "quiquetocapelotas" y en el foro de vb avanzado "Raul Pirovano" eres la misma persona!!!!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:obtener el path de 'Archivos de programa'

Publicado por RECO MAN (1 intervención) el 14/08/2019 23:21:46
Gracias mil!!! Funciona perfecto!!! solo que en vez de Private Function GetSpecialfolder, coloque Public Function GetSpecialfolder y el parámetro que hay que mandar es 38 para obtener Archivos de programa. Saludos y Gracias nuevamente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar