Private Sub Button3_Click 'USB测试 usbdisk test
ToastMessageShow( rp.GetSafeDirDefaultExternal(""),False) 'i try it,but just get the inside card,not USBdisk even run the demo of ManageExternalStorage1.0.zip
Dim str As String
str=fs.GetExtSd
'Msgbox(str,"SD卡路径")
'MsgboxAsync( fs.GetDiskstats(str),"")
ToastMessageShow(File.DirRootExternal,False)
ToastMessageShow( fs.IsReadable(fs) ,False )
Dim d() As UsbDevice
Dim um As UsbManager
Dim ui As UsbInterface
um.Initialize
d=um.GetDevices
Try
If d.Length<>0 Then
MsgboxAsync(d(0).DeviceName,"U盘名称 USBdisk Name") 'i test that can get the USBdisk
If um.HasPermission(d(0))=False Then
um.RequestPermission(d(0))
End If
ui=d(0).GetInterface(d(0).InterfaceCount)
um.OpenDevice(d(0),ui,True).StartListening("UC") 'maybe wrong
Else
ToastMessageShow("未检测到U盘,no USBdisk",False)
End If
Catch
MsgboxAsync( LastException.Message,"错误反馈")
End Try
End Sub