如何得知操作系统安装在哪个磁盘上

Question

我在编程过程中遇到需知道操作系统安装在哪个磁盘上，望各位大虾指教。谢谢

Answer 1

Option Explicit
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Sub Command1_Click()
Dim sysDirectory As String
sysDirectory = String(255, Chr(0))
GetSystemDirectory sysDirectory, 256
MsgBox "操作系统装在" & Left(sysDirectory, 1) & "盘"
End Sub

Answer 2

我要把一个文件复制到system32 文件夹中

Answer 3

VB我不太清楚，但是你可以调用API   GetWindowsDirectory获取Windows目录位置，就可以知道它安装在那个盘了

Answer 4

我要把一个文件复制到system32 文件夹中
=============================================好想有表示System目录的常量吧，没必要去Get的。

Answer 5

' 原来是这样，哪不省得处理了，直接获得System32文件夹的位置不就行了。   :)Option Explicit
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Sub Command1_Click()
Dim sysDirectory As String, lsysDirectory As Long
sysDirectory = String(255, Chr(0))
lsysDirectory = 256
GetSystemDirectory sysDirectory, lsysDirectory
MsgBox "操作系统的System目录位于：" & Left(sysDirectory, lsysDirectory)
End Sub