如题~

解决方案 »

  1.   

    声明
    Private Declare Function GetVolumeInformation Lib _
    "kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
    lpRootPathName As String, ByVal lpVolumeNameBuffer As _
    String, ByVal nVolumeNameSize As Integer, _
    lpVolumeSerialNumber As Long, lpMaximumComponentLength _
    As Long, lpFileSystemFlags As Long, ByVal _
    lpFileSystemNameBuffer As String, ByVal _
    nFileSystemNameSize As Long) As Long调用
    Function GetSerialNumber(strDrive As String) As Long
    Dim SerialNum As Long
    Dim Res As Long
    Dim Temp1 As String
    Dim Temp2 As String
    Temp1 = String$(255, Chr$(0))
    Temp2 = String$(255, Chr$(0))
    Res = GetVolumeInformation(strDrive, Temp1, _
    Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
    GetSerialNumber = SerialNum
    End Function
      

  2.   

    不能用这个函数  GetVolumeInformation  还有没有别的方法啊
      

  3.   

    Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As LongSub main()
    Dim driveinfo As String, i As Byte
    For i = 0 To 25
    driveinfo = Chr(i + 65) & ":"
    If GetDriveType(driveinfo) = 5 Then Exit For
    Next
    driveinfo = GetObject("WinMgmts::Win32_LogicalDisk='" & driveinfo & "'").VolumeSerialNumber
    MsgBox driveinfo
    End Sub
      

  4.   

    谢谢
     northwolves(狼行天下) ( ) 信誉:123    Blog  2007-2-1 11:05:12  得分: 0  
     我会尽快结帖