******************************************************************** * Description.......: IsDriveReady - check if drive is ready to use * Calling Samples...: IsDriveReady('a') * Parameter List....: * Created by........: Ken Weber * Modified by.......: ******************************************************************** lParameters cDrive local oFSO, oFloppy, llRetVal llRetVal = .F. oFSO = createobject("Scripting.FileSystemObject") if oFSO.DriveExists(cDrive) oFloppy = oFSO.GetDrive(cDrive) llRetVal = oFloppy.IsReady() endif return llRetVal