| 本月文章推荐 |
如何获得系统光驱的盘符发表日期：2006-2-27
|
|
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.PrintDriveLetter'DRIVE_CDROM=5 LoopUntilDriveType=1'返回值为1,已无可用驱动器 EndSub-> |
| 上一篇：告诉你两种判断闰年的简单方法
人气:5094 下一篇：一个关于乘法溢出问题的探讨 人气:3466 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
