Private Function wmiFloppyInfo(Prop as string) as String
  Dim Result as String
 
  Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                              InstancesOf("Win32_FloppyDrive")
  For Each obj In wmiObjSet
  Select case Prop
    Case "Name"
      Result=Result+obj.Name+"|"
    case "DeviceID
      Result=Result+Cstr(obj.DeviceID)
........................
  End select
  wmiFloppyInfo=Left(Result,Len(result)-1)
End function
 
Aufruf dann mit
  Txt=wmiFloppyInfo("Name")
  A=Split(Txt,"|")
  If A(0)="" then 
  Anzahl=0
  Else
  Anzahl=Ubound(a)+1
  For i=0 to ubound(a):  list1.additem(a(i):next
  end if

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)