Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: hunter18 en 29 Junio 2010, 03:18 am


Título: Como saber la unidad donde esta instalado windows?
Publicado por: hunter18 en 29 Junio 2010, 03:18 am
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.

Título: Re: Como saber la unidad donde esta instalado windows?
Publicado por: Once en 29 Junio 2010, 03:38 am
Creo que podes utilizar variables de entorno WinDir y seria algo asi:

Código
  1. Dim SO as string
  2. SO = Environ("Windir")
  3.  

y te devolvera la unidad + \WINDOWS

Saludos.

Título: Re: Como saber la unidad donde esta instalado windows?
Publicado por: 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

Título: Re: Como saber la unidad donde esta instalado windows?
Publicado por: neptun0 en 29 Junio 2010, 04:08 am
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 ;)

Título: Re: Como saber la unidad donde esta instalado windows?
Publicado por: Psyke1 en 29 Junio 2010, 11:34 am
Cita de: 11Sep en 29 Junio 2010, 03:38 am
Creo que podes utilizar variables de entorno WinDir y seria algo asi:

Código
  1. Dim SO as string
  2. SO = Environ("Windir")
  3.  

y te devolvera la unidad + \WINDOWS

Saludos.

Ok, pero mejor pon $ despues de Environ que si no queda como Variant... :-\
Código
  1.     Dim SO As String
  2.     SO = Environ$("Windir")
Si quieres saber todas las posibilidades de Environ abres el CMD y escribes:
Código:
set
Te saldra una lista con las variables de rutas que puedes utilizar... :P

Salu2! ;)

Título: Re: Como saber la unidad donde esta instalado windows?
Publicado por: Karcrack en 29 Junio 2010, 12:06 pm
Código
  1. Private Sub Form_Load()
  2.     MsgBox GetDrive01 & vbNewLine & GetDrive02
  3. End Sub
  4.  
  5. Public Function GetDrive01() As String
  6.     GetDrive01 = Left$(VBA.CurDir$, 2)
  7. End Function
  8.  
  9. Public Function GetDrive02() As String
  10.     GetDrive02 = Environ$("HOMEDRIVE")
  11. End Function

La variable de entorno que necesitas es "HOMEDRIVE"


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines