求助一个关于VB问题哦！

问的更具体就是如何用VB语言实现U盘的盘符与其他系统盘符的区别？

解决方案 »

  1.   

    用API函数可以实现
    Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
      

  2.   

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colMonitoredEvents = objWMIService. _
        ExecNotificationQuery("Select * from Win32_VolumeChangeEvent")
    Do
        Set objLatestEvent = colMonitoredEvents.NextEvent
        Debug.print objLatestEvent.DriveName
        Debug.print objLatestEvent.EventType
        Debug.print objLatestEvent.Time_Created
    Loop请问这段代码哪里有问题？
      

  3.   

    谢谢帮助知道API怎么用了!呵呵!