Как найти диск с операционной системой

Question

Как я могу определить диск, на котором установлена ​​операционная система, используя VB6?

Private Sub GetSystemDrive()
    ' What to write here?
End Sub

Answer 1

Простой способ - использовать переменную окружения %SystemDrive%. Вы можете получить доступ к переменным окружения, используя Environ, например, Environ("SystemDrive").

Если вы работаете в операционной системе Win9x, вы можете использовать %WinDir% и просто извлечь часть диска, например, Left(Environ("WinDir"), 2).

Answer 2

Использование вызовов API немного надежнее, чем доступ к среде

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

Private Function GetSystemDrive() As String
    GetSystemDrive = Space(1000)
    Call GetWindowsDirectory(GetSystemDrive, Len(GetSystemDrive))
    GetSystemDrive = Left$(GetSystemDrive, 2)
End Function

Private Sub Form_Load()
    Debug.Print GetSystemDrive
End Sub