Private Declare Function GetDriveType Lib "kernel32" Alias _ 
     "GetDriveTypeA" (ByVal sDrive As String) As Long 
     
     Private Function DriveType(sDrive As String) As String 
     Dim sDriveName As String 
     Const DRIVE_TYPE_UNDTERMINED = 0 
     Const DRIVE_ROOT_NOT_EXIST = 1 
     Const DRIVE_REMOVABLE = 2 
     Const DRIVE_FIXED = 3 
     Const DRIVE_REMOTE = 4 
     Const DRIVE_CDROM = 5 
     Const DRIVE_RAMDISK = 6 
     sDriveName = GetDriveType(sDrive & ":\") 
     Select Case sDriveName 
     Case DRIVE_TYPE_UNDTERMINED 
     DriveType = "²» ÄÜ Ê¶ ±ð " 
     Case DRIVE_ROOT_NOT_EXIST 
     DriveType = "²» ´æ ÔÚ " 
     Case DRIVE_CDROM 
     DriveType = "ÊÇ CD-ROMÇý ¶¯ Æ÷ " 
     Case DRIVE_FIXED 
     DriveType = "Ó² ÅÌ Çý ¶¯ Æ÷ " 
     Case DRIVE_RAMDISK 
     DriveType = "ÊÇ RAMÇý ¶¯ Æ÷ " 
     Case DRIVE_REMOTE 
     DriveType = "Íø Âç Çý ¶¯ Æ÷ " 
     Case DRIVE_REMOVABLE 
     DriveType = "Èí ÅÌ Çý ¶¯ Æ÷ " 
     End Select 
     End Function 
     
     Private Sub Drive1_Change() 
     MsgBox "Çý ¶¯ Æ÷ Àà ÐÍ £º " & DriveType(Left(Drive1.Drive, 1)) 
     End Sub 
<END>