Replying to myself.
I finally found this in the documentation:
// iterate over all devices without recursion and count devices
dim devices(-1) as MacUSBDeviceMBS
devices.Append MacUSBDeviceMBS.root
dim count as integer = -1 // do not count Mac itself
while UBound(devices)>=0
dim dev as MacUSBDeviceMBS = devices.Pop
count = count + 1
for each child as MacUSBDeviceMBS in dev.children
devices.Append child
next
wend
MsgBox str(Count)+” USB devices.”
and modified it as below (in the Open event of a ListBox):
// iterate over all devices without recursion and count devices
dim devices(-1) as MacUSBDeviceMBS
dim USBDisk(-1) As MacUSBDeviceMBS
dim count as integer = -1 // do not count Mac itself
devices.Append MacUSBDeviceMBS.root
while UBound(devices)>=0
dim dev as MacUSBDeviceMBS = devices.Pop
count = count + 1
for each child as MacUSBDeviceMBS in dev.children
devices.Append child
If child.ProductName="Mass Storage Device" Or child.Name="Mass
Storage Device" Then USBDisk.Append child
next
wend
'MsgBox str(Count)+" USB devices, dont "+Str(USBDisk.Ubound+1)+"
périphériques de stockage."
For each dev As MacUSBDeviceMBS in USBDisk
Me.AddRow Str(dev.VendorID)
Me.Cell(Me.LastIndex,1)=dev.VendorName
Me.Cell(Me.LastIndex,2)=Str(dev.ProductID)
Me.Cell(Me.LastIndex,3)=dev.ProductName
Me.Cell(Me.LastIndex,4)=dev.SerialNumber
Next
Is this a correct code? May I write something more efficient?
TIA
Jean-Luc
Le 28/03/2014 15:13, Jean-Luc Arnaud a écrit :
> Hi all,
>
> I'm working on USB devices (as Mass Storage).
>
> I found, in the examples, WinUSBDeviceMBS.devices that is listing all
> USB devices on Windows.
> Unfortunately, unless I'm wrong, MacUSBDeviceMBS.devices does not exist.
>
> How may I get a listing of all USB Mass Storage devices on Mac OS X?
>
> TIA
>
> Jean-Luc
>
> _______________________________________________
> Mbsplugins_monkeybreadsoftware.info mailing list
> [email protected]
> https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
>
>
--
Jean-Luc Arnaud
Directeur Technique
Centre Direct du Multimedia
BP 80032
5 rue du 8 Mai 1945
91470 - LIMOURS - FRANCE
Siret 403 860 034 000 20 / Evry
Tel : 33 (0)1 64 91 46 24
Fax : 33 (0)1 64 91 46 87
mailto:[email protected]
http://www.cdmultimedia.fr
Notre spécialité : Transfert de tous formats vidéo vers un format numérique
DVD, AVI, QuickTime, …
Montage et authoring de DVD, archivage de vidéo et audio.
Duplication de petites séries et de grandes séries de CD et DVD
Matériel et prestation de duplication de clés USB, FlashCards, disquettes, …
Développement Mac et PC à façon.
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
