Originariamente inviato da oregon
Usa WMI ...

codice:
Dim oWMI As Object
Dim cShares  As Object
Dim oShare As Object
    
Set oWMI = GetObject("winmgmts:")
Set cShares = oWMI.ExecQuery("Select * from Win32_Share")
For Each oShare In cShares
  Print oShare.Name & " (" & oShare.Path & ") ... " & oShare.Description
Next
ciao oregon,
provo subito, devo inserire qualche riferimento?
ho già provato, l'ho sempre detto sei Un Grande!!

bene hai letto il post sul webbrowser? esiste una soluzione?
ma da dove le prendi tutte queste risorse?