Nadya,
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
endforHugo
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
