Thanks to you, George, Bret and Mark. I now have something to put in our common library :)

>Nadya,
>
>

>* listdrives.prg
>local oFs, oDrive, oDrives, lcName
>
>oFS = CreateObject("Scripting.FileSystemObject")
>oDrives = oFS.Drives
>For Each oDrive in oDrives
>	lcName='?'
>	if oDrive.DriveType = 3 Then
>		lcName = oDrive.ShareName
>	else
>		if oDrive.isready
>			lcName = oDrive.VolumeName
>		endif
>	endif
>	? oDrive.DriveLetter, lcName
>endfor
>

>
>Hugo