| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #1048 [C] (จาก IP: 61.19.162.193)
อยากทราบวิธีการติดต่อ USB แฟลชไดร์ฟ
เช่น เช็คว่ามีแฟลชไดร์ฟเสียบอยู่หรือไม่ ชื่อไดร์ฟ ชื่อของแฟลชไดร์ฟ
|
| จากคุณ
:
neo / nuonica@hotmail.com [2007-04-23 11:36:02]
|
|
ความคิดเห็น #25502 (จาก IP: 58.8.94.174)
เช็คว่ามี DRIVE REMOVABLE (แฟลชไดร์เสียอยู่) เสียบอยู่หรือไม่ ถ้าจะให้เช็คบ่อย ๆ ก็ใช้ Timer ช่วยนะครับ
Public Const DRIVE_CDROM = 5
Public Const DRIVE_FIXED = 3
Public Const DRIVE_RAMDISK = 6
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_REMOVABLE = 2
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Click()
Dim i, Drv, D$
For i = 0 To 25
D$ = Chr(i + 65) & ":"
Drv = GetDriveType(D$)
'If Drv = DRIVE_REMOVABLE Then
Print "Drive " & D$ & " is DRIVE REMOVABLE"
'End If
Next
End Sub |
| จากคุณ
:
ron-korn@hotmail.com [2007-04-27 15:17:05]
|
|
ความคิดเห็น #25503 (จาก IP: 58.8.94.174)
อ่านชื่อของไดร์ฟ
Private Declare Function GetVolumeInformation Lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Any, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Public Function TestVolume(volName As String)
On Local Error GoTo TestVolumeERR
Dim hgLW()
Dim RetVal As Long
Dim VolumeName As String
Dim FileSystem As String
Dim SerialNummer As Currency
Dim strSerienNr As String, strTemp As String
Dim curTemp As Currency
Dim FileNameLen As Long
Dim FileSystemFlags As Long
FileSystem = Space(256)
VolumeName = Space(256)
RetVal = GetVolumeInformation(volName, VolumeName, _
Len(VolumeName), SerialNummer, FileNameLen, FileSystemFlags, _
FileSystem, Len(FileSystem))
If RetVal <> 0 Then
ReDim hgLW(4)
hgLW(0) = Left$(VolumeName, InStr(VolumeName, Chr$(0)) - 1)
strTemp = Trim$(CStr(SerialNummer))
If InStr(strTemp, ",") <> 0 Then
curTemp = SerialNummer * (10 ^ Int(Len(Trim$(CStr(SerialNummer))) - InStr(Trim$(CStr(SerialNummer)), ",")))
strSerienNr = Format$(curTemp, "0")
End If
hgLW(1) = strSerienNr
hgLW(2) = Trim$(CStr(FileNameLen))
hgLW(3) = Trim$(CStr(FileSystemFlags))
hgLW(4) = Left$(FileSystem, InStr(FileSystem, Chr$(0)) - 1)
TestVolume = hgLW(0) & vbCrLf & hgLW(1) & vbCrLf & hgLW(2) & vbCrLf & hgLW(3) & vbCrLf & hgLW(4)
End If
TestVolumeOUT:
Exit Function
TestVolumeERR:
TestVolume = ""
Resume TestVolumeOUT
End Function
|
| จากคุณ
:
ron-korn@hotmail.com [2007-04-27 15:21:18]
|
|
ความคิดเห็น #25504 (จาก IP: 58.8.94.174)
Private Sub Form_Click()
Dim i, Drv, D$
For i = 0 To 25
D$ = Chr(i + 65) & ":"
Drv = GetDriveType(D$)
If Drv = DRIVE_REMOVABLE Then
Print "Drive " & D$ & " is DRIVE REMOVABLE Volumn Name [ " & TestVolume(D$) & " ]"
End If
Next
End Sub |
| จากคุณ
:
ron-korn@hotmail.com [2007-04-27 15:23:45]
|
|
ความคิดเห็น #25749 (จาก IP: 203.158.118.14)
| ขอบคุญมากๆครับที่ให้รายละเอียด |
| จากคุณ
:
nuonica@hotmail.com / nuonica@hotmail.com [2007-07-17 10:30:54]
|
|
ความคิดเห็น #26978 (จาก IP: 125.24.104.179)
ผมมีอุปกรณ์ที่ส่งข้อมูลผ่าน rs232 ถ้าจะปรับมาให้ส่งผ่าน usb แล้วให้ pda อ่านค่าได้ต้องทำอย่างไรบ้างครับ ผู้รู้กรุณาแนะนำหน่อยครับ
|
| จากคุณ
:
Tooyoung / weerasak500@hotmail.com [2008-08-04 14:02:28]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
