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
Dim disco As String
disco = Left(App.Path, 2)
MsgBox disco
No sé si esto vale,lo he creado ahora pero funciona...
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.
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
Ya sabia yo que no seria tan facil,bueno almenos le diste lo que buscaba.
Os complicais bastante la vida con API's, cuando se obtiene el mismo resultada más rapido y sin llamar a DLL's externas:
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!!
bua me a venido perfecto
gracias a todos
saludos
:-X :-X No conocia lo de Environ :-\
Salu2
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 :)
No conocia lo de Environ tampoco