第11章使用ActiveX服务器组件研究报告.pptVIP

内容链接对象使用例 例9：为一组图片文件建立一个目录列表 （1）建立目录列表文件，文件名为“L11_9.txt”，输入内容如下： t\index1.Gif 图片1 t\index2.Gif 图片2 t\index3.Gif 图片3 t\index4.Gif 图片4 驱动器使用例 例5：显示某驱动器的一些属性 % Set objFS=Server.CreateObject(Scripting.FileSystemObject) set objDrive=objFS.GetDrive(I) str=以下显示驱动器的一此属性br str=str+驱动器字母: objDrive.DriveLetter Br if objDrive.IsReady then str=str+处于就绪状态BR str=str+文件系统: objDrive.filesystem BR str=str+自由空间: int(objDrive.freespace/1024) KBBR str=str+总空间: int(objDrive.Totalsize/1024/1024) MBBR else str=str+不在就绪状态BR end if 建立文件系统对象，建立驱动器对象 驱动器是否就绪 驱动器使用例 例5：