CheckDriveType ( DrvTypeBuff , PathName )
値 | 意味 |
---|---|
REMOVABLE | 交換可能なメディア(FDドライブなど) |
FIXED | ハードディスク |
REMOTE | LAN/リモートドライブ |
CDROM | CD-ROMドライブ |
RAMDISK | RAMディスク |
"" | 判定できない |
Dim result1
CheckDriveType ( result1 ,"D:¥" )
If result1 <> CDROM Then
MessageBox ( "CD-ROMではありません。" ,OK )
End