http://www.crwmart.cn/uc_server/avatar.php?uid=97&size=big

五星上将

一、检测可搜索路径

　　把下面的代码附加给具有跳转功能的按钮，这里默认的后缀是dxr。

property programName

on getPropertyDescriptionList me
　myList = [:]
　myList[#programName] = [#comment: ‘‘输入要调用的程序文件名前缀\‘‘, #format: #string,#
　return myList
end

on mouseup
　search_path=the searchPaths
　add search_path,‘‘\‘‘
　repeat with i=1 to search_path.count
　　if fileExists(search_path,programName & ‘‘.dxr‘‘) then
　　　go movie programName
　　　exit
　　end if
　end repeat
　alert ‘‘Demo version!‘‘
end

on fileExists _path,_FileName
　fxObj = new(xtra ‘‘FileXtra3‘‘)
　if fxObj.fx_FileExists(the moviepath & _path & _FileName ) then
　　fxObj=void
　　temp=true
　else
　　temp=false
　end if
　fxObj=void
　return temp
end

　　二、检测CD盘符

on FindCDDrives
　set cdDrives = list ()
　set dList = DrivesToList()
　set numList = count (dList)
　repeat with i = 1 to numList
　　set chkDrive = getAt(dList,i)
　　if driveIsCDROM(chkdrive) = 0 then
　　　add cdDrives, chkdrive
　　end if
　end repeat
　return cdDrives
end

vcall

谢谢楼主提供分享！！

yipingzi

阳春白雪，逛一逛，看一看，顶一顶。

gxj000

谢谢楼主提供分享！！