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。