如何用脚本获得光驱的盘符？

[feixianzhi]

RT

光驱的盘符不确定可能是c:后面的任何一个◎！如何用脚本获得它的盘符呢？

请问大侠们如何解决？◎！

[hzhxxx]

" 5. 得到磁盘的类型(uf_disk_type) ~r~n" +&
" 6. 得到光驱的盘符(uf_get_cdrom) ~r~n" +&


//*************************************************//
//function : 得到光驱的盘符
//parm : (none)
//return : 光驱的盘符
//author : hzh
//date : 2002.04.26
//************************************************//


integer li_i,li_start,li_end
string ls_CDRoms = ""

li_start = Asc("A")
li_end = Asc("Z")

FOR li_i = li_start TO li_end
IF uf_Disk_Type(Char(li_i)) = "CDROM" THEN ls_CDRoms = ls_CDRoms + Char(li_i)
NEXT

RETURN ls_CDRoms




//*************************************************//
//function : 得到磁盘的类型
//parm :
// 1. rootpathname : 盘符
//return : 磁盘的类型
//author : hzh
//date : 2002.04.26
//************************************************//

string ls_DriveType

as_RootPathName = Left(as_RootPathName,1) + ":"

CHOOSE CASE GetDriveTypeA(as_RootPathName)
CASE 2
ls_DriveType = "REMOVABLE"
CASE 3
ls_DriveType = "FIXED"
CASE 4
ls_DriveType = "REMOTE"
CASE 5
ls_DriveType = "CDROM"
CASE 6
ls_DriveType = "RAMDISK"
CASE ELSE
SetNull(ls_DriveType)
END CHOOSE

RETURN ls_DriveType

[hzhxxx]

Function uint GetDriveTypeA(string lpRootPathName) LIBRARY "kernel32.dll"

[wangxichen]

通过GetDriveType函数可以获取驱动器（如：软驱、硬盘、光驱、网络映射驱动器等）的信息，该函数声明为：

　　Function Uint GetDriveTypeA (String drive) Library ″kernel32.dll″

　　参数为一个盘符（如“C:"），返回值：1表示未知，2表示软驱，3表示本地硬盘，4表示网络驱动器，5表示光驱。因此如下代码可以获得光盘的盘符：

　　For i=Asc(′D′) to Asc(′Z′)

　　//列举所有可能的CDROM驱动器

　　If GetDriveTypeA(Char(i)＋″:″)=5 Then

　　//若找到CDROM

　　MessageBox(″CDROM″,Char(i)＋″:″)

　　//显示光盘盘符

　　Exit //退出列举

　　End If

　　Next

[feixianzhi]

Thanks a lot !