欢迎光临
我们一直在努力

如何获得系统光驱的盘符_visualbasic教程

建站超值云服务器,限时71元/月

DeclareFunctionGetDriveTypeLib”kernel32″Alias”GetDriveTypeA”(ByValnDriveAsString)AsLong

该函数返回系统驱动器类型,返回值为5即为光驱,下面这个例子仅作简单的演示,你可以做进一步的改进以用在您自己的应用程序当中

PrivateSubGetCDRomLetter()

DimDriveNumAsInteger
DimDriveType
DimCDRomAsInteger
DimDriveLetterAsString
DimiAsByte
DriveNum=1
Do
DriveNum=DriveNum 1
DriveLetter=Chr(DriveNum 65) “:\”
DriveType=GetDriveType(DriveLetter)
IfDriveType=DRIVE_CDROMThenDebug.PrintDriveLetterDRIVE_CDROM=5
LoopUntilDriveType=1返回值为1,已无可用驱动器

EndSub->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 如何获得系统光驱的盘符_visualbasic教程
分享到: 更多 (0)