首先 声 明 以 下 API :
Public Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
然后使用以下叙述调用 :
ret = GetDriveType ( "D:/")
若传回值 ret 等于:
5 , 即表示 "D:/" 为光碟机
2:软碟,
3:硬碟,
4:Server端磁碟,
6:RAMDISK
Public Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
然后使用以下叙述调用 :
ret = GetDriveType ( "D:/")
若传回值 ret 等于:
5 , 即表示 "D:/" 为光碟机
2:软碟,
3:硬碟,
4:Server端磁碟,
6:RAMDISK