Identification of USB flash disk in VB6

[nebozez]

Hi all!

I need help in VB6 under Win XP. I need to read VID and PID of my USB flash disk in VB6. I googled many examples but nothing works

My disk is connected for example as drive "I:\" and by some utilities I found that it has both VID and PID. How to read this information in VB6?

I need something easy like:

dim VID
dim PID 

sub GetVIDandPID(Path as string) 
   ...??? something to get VID and PID ???...  
end sub 

sub main()
   GetVIDandPID "I:\" 
   msgbox VID & " " & PID 
end sub

I will be very happy if anybody knows some method which WORKS!

Thanks a lot.