Autor
|
Tema: Listar Discos (Leído 4,039 veces)
|
|
seba123neo
|
esas propiedades son del .NET, nunca te van a servir , busca la MSDN de visual basic 6...o ejemplos sueltos en internet, hay miles...
yo diria directamente que uses una api para obtener el directorio del windows, y eso te lo obtiene con la letra del sistema.
|
|
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
esas propiedades son del .NET, nunca te van a servir , busca la MSDN de visual basic 6...o ejemplos sueltos en internet, hay miles...
yo diria directamente que uses una api para obtener el directorio del windows, y eso te lo obtiene con la letra del sistema.
asi ? ' Funciones del API: Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim buf As String Dim ret As Long ' ' Obtener el directorio de windows buf = String$(260, Chr$(0)) ret = GetWindowsDirectory(buf, Len(buf)) Text1.Text = Left$(buf, ret) ' ' Obtener el directorio de System buf = String$(260, Chr$(0)) ret = GetSystemDirectory(buf, Len(buf)) Text2.Text = Left$(buf, ret)
|
|
|
En línea
|
|
|
|
seba123neo
|
esa es una variable de entorno de windows, la podes usar, pero yo por preferencia usaria una api.
|
|
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
asi esta bien :
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long Dim buf As String Dim ret As Long ' Obtener el directorio de windows buf = String$(260, Chr$(0)) ret = GetWindowsDirectory(buf, Len(buf)) WINDIR = Left$(buf, ret)
?
|
|
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
aca encontre esta: 'Código para el Modulo Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'Código para el procedimiento 'Definimos las variables Dim DirectorioWindows As String * 255 Dim CadenaResultante As Long
CadenaResultante = GetWindowsDirectory(DirectorioWindows, 255)
'mostramos el resultado Print Left(DirectorioWindows, CadenaResultante) pero nose ni donde ponerlo, ni donde me va a aparecer el directorio ¬¬
|
|
|
En línea
|
|
|
|
seba123neo
|
y bueno tenes que hacerte una funcion que te devuelva ese Left(DirectorioWindows, CadenaResultante) asi cuando la llamas, te devuevla el directorio...y creo que tenes que leer mas , porque usar apis se te va a hacer comun y tenes que saber donde poner el codigo, es algo de manual no te lo podemos enseñar aca en un post.
bajate el api guide, tiene ejemplos de uso de casi todas las api's de windows.
|
|
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
y bueno tenes que hacerte una funcion que te devuelva ese Left(DirectorioWindows, CadenaResultante) asi cuando la llamas, te devuevla el directorio...y creo que tenes que leer mas , porque usar apis se te va a hacer comun y tenes que saber donde poner el codigo, es algo de manual no te lo podemos enseñar aca en un post.
bajate el api guide, tiene ejemplos de uso de casi todas las api's de windows.
ya estoy bajando este : http://www.taringa.net/posts/downloads/1391282/Para-programadores:-Gu%C3%ADa-de-las-API-de-Windows_.htmlese sirve?
|
|
|
En línea
|
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
solucionado
Dim WIN As String WIN = Environ("WINDIR") msgbox WIN
y te devuelve *:\windows
|
|
|
En línea
|
|
|
|
|
|