end '并结束本程序
else
debug.print "cd-rom is empty"
end if
err_file:
if err.description = "错语的文件名或号码" then exit sub
end sub
function isemptycdrom(sdrive as string)
dim s
on error goto errhandle
s = dir(sdrive + "*.*")
isemptycdrom = false
exit function
errhandle:
isemptycdrom = true
end function
