เอาไปดัดแปลงต่อยอดเอาเองนะครับ
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public Const DRIVE_REMOVABLE = 2
Public Const DRIVE_FIXED = 3
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_CDROM = 5
' ----------------------------------------------------------------------

Sub chDrive()
Dim Y As Long
Dim X As Integer
For I = 0 To 25
Y = GetDriveType(Chr(I + 65) & ":\")
Debug.Print Chr(I + 65) & ":\ = " & DrType(Y) & vbTab & Y
Next
End Sub

Function DrType(dr As Long) As String
    Select Case dr
        Case DRIVE_REMOVABLE
            DrType = "ฟลอบปี้ดิสก์"
        Case DRIVE_FIXED
            DrType = "ฮาร์ดดิสก์"
        Case DRIVE_REMOTE
            DrType = "เน็ตเวิร์คไดรว์"
        Case DRIVE_CDROM
            DrType = "ซีดีรอม"
        Case DRIVE_RAMDISK
            DrType = "แรมดิสก์"
    End Select
End Function


sub chDrive
ผมรีบไปหน่อย อิอิ
ผมประกาศตัวแปร integer โดย X
แต่เวลาเอาไปเขียนในลูป กลับอ้างเป็นตัวแปร I (ไอ)
เอาเป็นว่าขอให้เข้าใจว่ามันคือตัวเดียวกันนะครับ ผมไม่อยากแก้ไขโพสต์ เพราะถ้าแก้ไข ตัวหนังสือจะจัดระเบียบใหม่ จะอ่านยากครับ

ขอบคุณค่ะอาจารย์
หนูจะลองเอาไปทำดูนะคะ ติดขัดประการใด จะขอรบกวนเพิ่มเติมอีกนะคะ
ขอบคุณค่ะ

พยายามศึกษาทำความเข้าใจแล้ว แต่ไปไม่รอด ไปต่อไม่ถูกค่ะอาจารย์
หนูไม่ทราบวิธีนำไปใช้ แล้วก็ ไม่ทราบว่าบรรทัดที่ใช้ตรวจสอบการมีอยู่ของไดร์ฟ D:\ หรือไม่ ว่าอยู่บรรทัดไหนค่ะ
ขอความกรุณาอาจารย์ ช่วยขยายความเพิ่มเติมให้อีกนิดนะคะ

ขอบคุณค่ะ

Sub chDrive()
Dim Y As Long
Dim X As Integer
     For X = 0 To 25
           Y = GetDriveType(Chr(X + 65) & ":\")
           Debug.Print Chr(X + 65) & ":\ = " & DrType(Y) & vbTab & Y
     Next
End Sub


Y = GetDriveType(Chr(X + 65) & ":\")
หรือ Y = GetDriveType("D:\")
ถ้า Y คืนค่าออกมาเป็น 1 หมายความว่า ในเครื่องนี้ ไม่มี Drive D:

ถ้า Y คืนค่าออกมาเป็นอย่างอื่น แล้วอยากรู้ว่า เป็น Drive ชนิดไหน
ให้ส่ง Y เข้าไปเช็คในฟังก์ชั่น drType ต่อไปก็จะได้
ชนิดไดรฟว์ของ Y = drType(Y)

อ๋อ..พอเห็นแนวทางประยุกต์แล้วค่ะอาจารย์

เดี๋ยวหนูจะลองไปทำดูนะคะ

ขอบคุณค่ะ

อยู่แถวไหนครับเนี่ย น้ำไม่ท่วมเหรอ ยังเข้าเว็บบอร์ดได้อีกนะเนี่ย
ขยันทำงานจริงนะ

แถวบ้านหนู น้ำท่วมนิดหน่อยค่ะอาจารย์..
ยังคงทำงานได้ปกติค่ะ