VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何判断某一个Drive是否为光碟机
发表评论(0)作者:, 平台:, 阅读:8811, 日期:2000-03-12
如何判断某一个Drive是否为光碟机?

须 调 用 Windows API 的 GetDriveType ,首先 声 明 以 下 API :

Declare Function GetDriveType Lib "kernel32" Alias _

"GetDriveTypeA" (ByVal nDrive As String) As Long

然后将以上的声明放在.bas的一般模块中,如果放在 Form 之中, 须在Declare之前再加上 Private。 然后使用以下叙述调用 :

ret = GetDriveType ( "D:\")

若传回值 ret 等于 5 , 即表示 "D:\" 为光碟机 , 至于其他传回值的意义则是 :

2:软碟, 3:硬碟, 4:Server端磁碟, 6:RAMDISK。