Como detecto el disco del usuario?

[SeNdEr2003]

Hola!

Utilizo un drive1 para manejar unos archivos pero esta por defecto como C:,
como hago para que detecte cual es el drive del usuario sin que este tenga
que seleccionarlo?

[SoutlinK]

Te refieres a las unidades? como el lector la disquetera etc?

[SeNdEr2003]

Si...a esas, siempre me detecta c: al principio aunque el user este en otra unidad. Y tiene que buscar...

[SoutlinK]

Mira, aun no se exactamente a lo que te refieres, pero e encontrado este codigo en la web de el guille (No me deja poner la URL :@, despues que no se enfaden con migo... h t t p : / / w w w . e l g u i l l e . i n f o
(Moderadores si esto no esta permitirlo borrarlo, pero es que la web tiene copyright....)

Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Dim WinDir As String
Dim Cadena As String
Dim ret As Long

Cadena = String$(300, Chr$(0))
ret = GetWindowsDirectory(Cadena, Len(Cadena))
WinDir = Left$(Cadena, ret) 'Esta sería la forma "lógica" de obtener el valor
'Pero podemos "rizar el rizo" y hacerlo de esta otra:
WinDir = Left$(Cadena, Instr(Cadena, Chr$(0)) - 1)

Por si eso no te vale, quizas puedas utilizar esto.

Dim Unidad As String
Unidad = Mid(App.Path, 1, 3)
MsgBox Unidad

Esto te devolverá C:\ o D:\ dependiendo de donde esteas ejecutando el programa.
Espero haberte ayudado tio, taluego