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
Autor
En línea
