发信人: foxzz()
整理人: hunter__fox(2002-03-16 21:48:54), 站内信件
|
*!*******************************
proc chkdrive
DECLARE LONG GetDriveType in win32api string nDrive
for m_drivei=asc("A") to asc("Z")
chrdrive=chr(m_drivei)+":\"
drives=GetDriveType(chrdrive)
do case
case drives=2
wait wind left(chrdrive,1)+"盘是可移动驱动器。"
case drives=3
wait wind left(chrdrive,1)+"盘是固定驱动器。"
case drives=4
wait wind left(chrdrive,1)+"盘是远程驱动器。"
case drives=5
wait wind left(chrdrive,1)+"盘是CD-ROM。"
case drives=6
wait wind left(chrdrive,1)+"盘是RAMDISK驱动器。"
other
wait wind left(chrdrive,1)+"盘无效！"
endcase
endfor
return .t.
另参考：
精华区-》PI及FLL手册〗-》在VFP应用程序中如何取得现有的磁盘代号
----
天行健，君子以自强不息
|
|