module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 15 行

Module Module1
    Public Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Integer, ByVal lpBuffer As String) As Integer
    Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer
    Public Declare Function GetLogicalDrives Lib "kernel32" () As Integer

    Public Const DRIVE_UNKNOWN As Short = 0
    Public Const DRIVE_NO_ROOT_DIR As Short = 1
    Public Const DRIVE_REMOVABLE As Short = 2
    Public Const DRIVE_FIXED As Short = 3
    Public Const DRIVE_REMOTE As Short = 4
    Public Const DRIVE_CDROM As Short = 5
    Public Const DRIVE_RAMDISK As Short = 6

End Module