新建一个模文件,加入代码:Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As LongGlobal GethdVal As Long在form1_load事件中加入Dim Str1 As String * 256Dim Str2 As String * 256Dim Lon1 As LongDim Lon2 As LongCall GetVolumeInformation("C:\", Str1, 256, GetVal, Lon1, Lon2, Str2, 256)Text1.Text = GethdVal
http://expert.csdn.net/Expert/topic/1526/1526713.xml?temp=.2067835
http://expert.csdn.net/Expert/topic/1526/1526713.xml
[email protected]