PROCEDURE DriveInfo LPARAMETERS tcDrive, tcRequiredInfo * * parameters : tcDrive drive ( "C:","D:", etc. , any type) * tcRequiredInfo AvailableSpace, DriveLetter, DriveType, FileSystem, FreeSpace * IsReady, Path, RootFolder, SerialNumber, ShareName, TotalSize * VolumeName * LOCAL oFs as "Scripting.FilesystemObject" , oDrv as Object , lReturnValue as Variant , cInfo as String oFs = CREATEOBJECT("Scripting.FilesystemObject") oDrv = oFs.GetDrive(tcDrive) cInfo = "oDrv."+tcRequiredInfo lReturnValue = EVALUATE(cInfo) RELEASE oDrv,oFs RETURN lReturnValue>Hi All,