Visual Basic - Determinar carpeta windows

Life is soft - evento anual de software empresarial
 
Vista:

Determinar carpeta windows

Publicado por Mamila (23 intervenciones) el 09/11/2004 21:06:30
Hola,

Como puedo determinar cual es la carpeta donde esta instalado windows.

P.ej:
C:\WINDOWS ó
C:\WINNT ó
C:\WIN98 ,etc.

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:Determinar carpeta windows

Publicado por HeNrY (90 intervenciones) el 09/11/2004 23:36:55
Hola :
Aqui te envio un ejemplo de la API de windows para que te de, la carpeta de windows y el de system.

' Funciones del API:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Dim buf As String
Dim ret As Long
'
' Obtener el directorio de windows
buf = String$(260, Chr$(0))
ret = GetWindowsDirectory(buf, Len(buf))
Text1.Text = Left$(buf, ret)
'
' Obtener el directorio de System
buf = String$(260, Chr$(0))
ret = GetSystemDirectory(buf, Len(buf))
Text2.Text = Left$(buf, ret)

SALUDOS DESDE PERU
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