USB DriveType มีค่าเป็น 2 (Fixed) ทำไมไม่เป็น 1 (Removable)


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

22 เม.ย. 65 , 22:38:43
อ่าน 154 ครั้ง

nonc31

จากความตั้งใจ จะ copy ไฟล์ไปยัง USB อัตโนมัติตอนปิดโปรแกรม โดยปกติ USB ค่า DriveType=1  แต่เครื่องผมดันเป็น 2 (มองเป็นฮาร์ดดิสก์)  มีวิธิแก้ไขมั๊ยครับ หรืออาจจะเช็คค่าอื่นแทน DriveType

Function getUSBDrive()

Set fso = CreateObject("Scripting.FileSystemObject")

For Each Drive In fso.Drives
    If Drive.IsReady Then
        MsgBox Drive.DriveLetter & " - " & Drive.VolumeName & " - " & Drive.DriveType
    End If
Next
   
End Function

 


บอร์ดเรียนรู้ Access สำหรับคนไทย



There are no comments for this topic. Do you want to be the first?