ThaiPBL.com

สวัสดีครับ เรามีฟังก์ชั่นในการอ่านค่าของ ไดรว์ ว่าเป็นชนิดใด โดยอันดับแรกทำการ declare Local External Function ก่อน ดังนี้

Function uLong GetDriveTypeA(String lpRootName) Library "kernel32.dll"

เสร็จแล้วก็ทำการเรียกใช้ฟังก์ชั่น เพื่อทำการตรวจสอบ สำหรับตัวเลขที่โปรแกรมจะคืนค่ามาให้เราทำการตรวจสอบว่าเป็นอะไรนั้นดูได้จากด้านล่างนี้เลยครับ

2 2 Removable drive (e.g., floppy)
3 4 Fixed drive (e.g, harddisk)
4 8 Remote / network drive
5 16 CD ROM drive
6 32 RAM disk (memory allocated to act as disk storage) 

สำหรับตัวอย่างการใช้งานก็ไม่ยากครับดูจากด้านล่างนี้เช่นกันครับ

String ls_Drive
Integer lul_RC

ls_Drive = "F:"
lul_RC = GetDriveTypeA(ls_Drive)
IF (Mod(Integer(lul_RC / 4), 2) > 0) THEN MessageBox("รายงานผล", "ไดรว์ F: คือ CD-ROM")

หวังว่าคงมีประโยชน์บ้างไม่มากก็น้อยนะครับ