ลองตัวนี้ดูครับ Sub IsAReady() Dim fso As Object, d As Object, dc As Object Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d In dc If d.DriveType = 1 And d.DriveLetter = "A" Then ' Check if the drive A is ready. If d.IsReady Then MsgBox "Drive " & d.DriveLetter & " is ready", vbOKOnly Else MsgBox "Drive " & d.DriveLetter & " is not ready", vbOKOnly End If End If Next End Sub

ใช้ได้แล้วค่ะ ขอบคุณมากค่ะ