判断驱动器的类型程序(VB6.0源代码编写) Select Case GetDriveType(Left(Drive1.Drive, 1) + ":\") Case DRIVE_REMOVABLE Text1.Text = "软盘驱动器" Case DRIVE_FIXED Text1.Text = "硬盘驱动器" Case DRIVE_REMOTE Text1.Text = "Network 驱动器" Case DRIVE_CDROM Text1.Text = "光盘驱动器" Case DRI