Salut, personnellement, j'utilise un truc du genre :
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d In dc Set Drv = fso.GetDrive(Mid(d, 1, 2)) If Drv.DriveType <> 1 Then ' Si tu veux pas être enquiquiné par le lecteur de disquette
DrvName = Drv.Path & "\" DrvName & " " & Drv.ShareName
endif
next
Mais ça c en vb6.
Cordialement
CanisLupus
|