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....)
Cita: 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.
Cita: 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