Este programa muestra cómo buscar desde una aplicación Visual Basic dónde se encuentra instalado Microsoft Windows.

1. Crea un nuevo proyecto en VB por defecto será Form1

2. Añade el siguiente código a Form1 en Declare statement de General Declarations

(nota: escribe en una sola línea de texto):

Private Declare Function Donde_esta_Windowsdirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

3. Añade un control Text Box al Form1

4. Añade un control Command Button al Form1

Private Sub Command1_Click()

Dim DirName As String

DirName = Donde_esta_Windows()

Text1.Text = DirName

End Sub

6. Crea una función y llámala Donde_esta_Windows añadirle el siguiente código

Function Donde_esta_Windows() As String

Dim Temp As String

Dim Ret As Long

Const MAX_LENGTH = 145

Temp = String$(MAX_LENGTH, 0)

Ret = Donde_esta_Windowsdirectory(Temp, MAX_LENGTH)

Temp = Left$(Temp, Ret)

If Temp <> "" And Right$(Temp, 1) <> "\" Then

Donde_esta_Windows = Temp & "\"

Else

Donde_esta_Windows = Temp

End If

End Function

Ejecuta el ejemplo pulsando F5