Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Saok Dagon en 1 Abril 2007, 22:38 pm


Título: Como averiguo la ruta del disco duro?
Publicado por: Saok Dagon en 1 Abril 2007, 22:38 pm
Hola

necesito averiguar el disco duro en el que esta instalado Windows

normalmente puede ser en C  pero si fuera por ejemplo en P k lo alamacenara en una variable


saludos

Título: Re: Como averiguo la ruta del disco duro?
Publicado por: Jareth en 1 Abril 2007, 23:06 pm
Código:
Dim disco As String
disco = Left(App.Path, 2)
MsgBox disco
No sé si esto vale,lo he creado ahora pero funciona...

Título: Re: Como averiguo la ruta del disco duro?
Publicado por: SheKeL_C$ en 1 Abril 2007, 23:20 pm
Eso no aberigua el disco....

Eso en muchos ordenadores suele venir "C:" pero no tiene xq serlo.. por ejemplo yo tengo 2 particiones y si lo ejecuto en D (la 2 particion) m sale D, obvio.

Lo que tienes que hacer es buscar la carpeta del sistema y quedarte con la letra.

Código:
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
    Dim sSave As String, Ret As Long
    sSave = Space(255)
    Ret = GetSystemDirectory(sSave, 255)
    sSave = Left$(sSave, Ret)
    Debug.Print Left(sSave, InStr(sSave, ":"))
End Sub

Título: Re: Como averiguo la ruta del disco duro?
Publicado por: Jareth en 1 Abril 2007, 23:30 pm
Ya sabia yo que no seria tan facil,bueno almenos le diste lo que buscaba.

Título: Re: Como averiguo la ruta del disco duro?
Publicado por: Mad Antrax en 1 Abril 2007, 23:37 pm
Os complicais bastante la vida con API's, cuando se obtiene el mismo resultada más rapido y sin llamar a DLL's externas:

Código:
Disco = Environ("HOMEDRIVE")
Windows = Environ("SYSTEMROOT")
Programs = Environ("PROGRAMFILES")

Con estas 3 lías obtienes el disco C:\ la carpeta de Windows y Archivos de Programa, hay varias más y se consultan con el comando SET dentro de un CMD.

Saludos!!

Título: Re: Como averiguo la ruta del disco duro?
Publicado por: Saok Dagon en 1 Abril 2007, 23:51 pm


bua me a venido perfecto

gracias a todos

saludos

Título: Re: Como averiguo la ruta del disco duro?
Publicado por: SheKeL_C$ en 2 Abril 2007, 09:31 am
 :-X :-X No conocia lo de Environ  :-\










Salu2

Título: Re: Como averiguo la ruta del disco duro?
Publicado por: Mad Antrax en 2 Abril 2007, 10:58 am
Cita de: SheKeL_C$ en  2 Abril 2007, 09:31 am
:-X :-X No conocia lo de Environ  :-\

Para esto está el subforo de Programación VB, para aprender todos :)

Título: Re: Como averiguo la ruta del disco duro?
Publicado por: TheGhost(Z) en 2 Abril 2007, 16:34 pm
No conocia lo de Environ  tampoco


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