<%
 dim fso,ds
 '创建对象实例
 Set fso=Server.CreateObject("Scripting.FileSystemObject")
 path=server.MapPath("10-05.txt") 
 if fso.driveexists(fso.getdrivename(path)) then
  response.Write fso.getdrivename(path)
 else
 response.Write "不存在驱动器"
 end if
%>

   
   

