判断驱动器的类型程序(VB6.0源代码编写)

判断驱动器的类型程序(VB6.0源代码编写)SelectCaseGetDriveType(Left(Drive1.Drive,1)+":\")CaseDRIVE_REMOVABLEText1.Text="软盘驱动器"CaseDRIVE_FIXEDText1.Text="硬盘驱动器"CaseDRIVE_REMOTEText1.Text="Network驱动器"CaseDRIVE_CDROMText1.Text="光盘驱动器&