Como saber la unidad donde esta instalado windows?

Iniciado por hunter18, 29 Junio 2010, 03:18 AM

0 Miembros y 2 Visitantes están viendo este tema.

hunter18

En algunas computadoras no siempre utilizan la unidad C:/ para instalar windows que funcion o api de vb6 me puede ayudar a detectar en que unidad se encuetra el sistema operativo.

Once

Creo que podes utilizar variables de entorno WinDir y seria algo asi:

Código (vb) [Seleccionar]

Dim SO as string
SO = Environ("Windir")


y te devolvera la unidad + \WINDOWS

Saludos.

hunter18

Si funciona pero no encuentro info sobre la funcion environt?, que otro uso se le puede a dicha funcion ya que es la 1era vez que escucho sobre la misma

neptun0

Cita de: hunter18 en 29 Junio 2010, 03:47 AM
Si funciona pero no encuentro info sobre la funcion environt?, que otro uso se le puede a dicha funcion ya que es la 1era vez que escucho sobre la misma

:http://msdn.microsoft.com/es-es/library/0fx287h4(VS.80).aspx

Un saludo ;)

Psyke1

#4
Cita de: 11Sep en 29 Junio 2010, 03:38 AM
Creo que podes utilizar variables de entorno WinDir y seria algo asi:

Código (vb) [Seleccionar]

Dim SO as string
SO = Environ("Windir")


y te devolvera la unidad + \WINDOWS

Saludos.

Ok, pero mejor pon $ despues de Environ que si no queda como Variant... :-\
Código (vb) [Seleccionar]

   Dim SO As String
   SO = Environ$("Windir")

Si quieres saber todas las posibilidades de Environ abres el CMD y escribes:
set
Te saldra una lista con las variables de rutas que puedes utilizar... :P

Salu2! ;)

Karcrack

Código (vb) [Seleccionar]
Private Sub Form_Load()
    MsgBox GetDrive01 & vbNewLine & GetDrive02
End Sub

Public Function GetDrive01() As String
    GetDrive01 = Left$(VBA.CurDir$, 2)
End Function

Public Function GetDrive02() As String
    GetDrive02 = Environ$("HOMEDRIVE")
End Function


La variable de entorno que necesitas es "HOMEDRIVE"