Определить диск на котором установлена система

[edyapd]

Пользуюсь такой командой: Environ("windir")
У меня на компьютере отрабатывает нормально и выдает: C:\Windows
У товарища программа виснет на этой команде.
Может можно как то по другому определить, на каком диске установлена система?

[Admiralisimys]

edyapd как вариант можно получить путь System32
System.Environment.SystemDirectory
А после по строке подняться на уровень выше.

Или воспользоваться Win32 UnManaged вариантом

Код: Выделить всё

'Где-то в объявлении класса
Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As UInteger) As UInteger
'Где в методе класса
Dim sWindows As New String("", 260)
GetWindowsDirectory(sWindows, 260)
Console.WriteLine(sWindows)

P.S.
В теме речь про системную директорию, а в заголовке про системный диск. Отвечал на первый пост.

[Qwertiy]

В теме речь про системную директорию, а в заголовке про системный диск. Отвечал на первый пост.

Системный диск легко получается из системной директории

Или воспользоваться Win32 UnManaged вариантом

Тогда уж юникодным. Если не ошибаюсь:

Код: Выделить всё

Declare Unicode Function ... Alias "GetWindowsDirectoryW" ...

[Admiralisimys]

Qwertiy сейчас это верно, но в будущем, возможно, как с System32 так и системный диском, может случиться разнесение, по аналогии с Юниксами. Так что прямой получения (если такой существует) будет всегда лучше.

Юникод объявление можно получить всего лишь поменяв в Alias в конце функции на W. Про Declare Unicode честно говоря некогда не слышал. Но если поступить, как знаю я, будет неудобство заключающие в том, что Win32 функция рассматривает sWindows как массив на 260 байт, и при переходе на Юникод потребуется уже указывать как 2х260, при этом Юникод вывод будет в виде (к примеру)
C : \ W i n d o w s
вместо C:\Windows
Так что как раз возможно и в отсутствии Declare Unicode Function будет дело.

[Qwertiy]

... будет неудобство заключающие в том ...

В VB.NET, в отличие от VB6, есть возможность явного указания Unicode или ANSI в Declare. В качестве аргумента по-прежнему передаётся String, а не массив байтов. Никакого ручного преобразования не требуется.

[Qwertiy]

Вот :)

Код: Выделить всё

Module All
  Declare Unicode Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryW" (ByVal lpBuffer As String, ByVal nSize As UInteger) As UInteger

  Public Sub Main()
    Dim Path As New String(" "c, GetWindowsDirectory(Nothing, 0))
    GetWindowsDirectory(Path, Path.Length)
    MsgBox(Path)
  End Sub
End Module

А вообще, странно, что в My.Computer.FileSystem.SpecialDirectories нет. Пожалуй, правильнее использовать System.Environment.

[Admiralisimys]

Qwertiy спасибо. Это действительно работает, никаких пробелов не замечено.

[edyapd]

Нашел в интернете:

Код: Выделить всё

    Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
    Function GetWinDir() As String
        Dim szBuffer As String = "                                                   "
        Dim lngRet As Long
        lngRet = GetWindowsDirectory(szBuffer, 50)
        GetWinDir = Left$(szBuffer, lngRet)
    End Function

Что практически тоже самое, что предлагалось Admiralisimys
Данный метод работает.
Но из ваших рассуждений понял, что это не самый правильный путь.
Напишите кто-нибудь однозначный ответ, как будет правильно.

[edyapd]

В теме речь про системную директорию, а в заголовке про системный диск. Отвечал на первый пост.

Просто я не нашел способа сразу получить системный диск. И по этому потом отрезаю лишнее и получаю "С:"

[Admiralisimys]

Environment.GetEnvironmentVariable("SystemDrive")

[edyapd]

Environment.GetEnvironmentVariable("SystemDrive")

Понял. Спасибо.
Буду пробовать