Como averiguo la ruta del disco duro?

[Saok Dagon]

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

[Jareth]

Código [Seleccionar] Expandir


Dim disco As String
disco = Left(App.Path, 2)
MsgBox disco

No sé si esto vale,lo he creado ahora pero funciona...

[SheKeL_C$]

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 [Seleccionar] Expandir

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


[Jareth]

Ya sabia yo que no seria tan facil,bueno almenos le diste lo que buscaba.

[Mad Antrax]

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 [Seleccionar] Expandir


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!!

[Saok Dagon]

bua me a venido perfecto

gracias a todos

saludos

[SheKeL_C$]

  No conocia lo de Environ 










Salu2

[Mad Antrax]

No conocia lo de Environ 

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

[TheGhost(Z)]

No conocia lo de Environ  tampoco