在Visual Basic 2013中查找系统驱动器＆amp; 6

Question

对于我的一些程序，我需要找到系统驱动器。我的意思是包含程序文件＆amp; Windows 文件夹。 例如：C：/ Program Files -----＆gt;驱动器 C 是系统驱动器。 当我在 Windows资源管理器中编写“％SystemDrive％”时，它将带我进入系统驱动器。 但是在 Visual Basic 2013＆amp; 6 当我在dir命令中使用此字符串时，没有任何反应！ 举一个例子：     Shell（“％SystemDrive％/ Windows / System32 / Shutdown.exe -s -t 00 -----＆gt;无输出。 我该怎么办？

Answer 1

对于使用Environ访问它们的Visual Basic ..的这些版本，您可以使用相同的环境变量，例如： Environ("SystemDrive")。

OR

您可以使用以下API驱动代码获取Windows Drive，然后根据需要进行导航。

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