VBSFSO对象实例.docVIP

!-- VBS FSO对象实例(自己整理)2009年02月26日 星期四 下午 1:11%@LANGUAGE=VBSCRIPT CODEPAGE=936% -- !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN /TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=/1999/xhtml head meta http-equiv=Content-Type content=text/html; charset=gb2312 / titlefso对象/title /head body !-- JS上用法 var fso = new ActiveXObject(Scripting.FileSystemObject); var newFolderName = fso.CreateFolder(c:\\aaa); -- % dim fso,path,f,bldpath set fso=server.CreateObject(scripting.filesystemobject)创建FSO对象 path=server.MapPath(.) response.Write(当前操作路径为：pathbr) 判断驱动器是否存在 response.Write(驱动器D是否存在：fso.driveexists(d)br) response.Write(驱动器Z是否存在：fso.driveexists(z)br) if fso.folderexists(path\new create) then 判断文件夹是否存在 response.Write(创建文件夹失败，文件夹已存在br) else fso.createfolder(path\new create)创建文件夹 end if if fso.fileexists(path\new create\newcreate.txt) then判断文件是否存在 response.Write(创建文件失败，文件已存在br) else fso.createtextfile path\new create\newcreate.txt,false,false创建文件 参数2可选 overwrite：Boolean 值，可被覆盖其值为 True，不能覆盖其值为 False 。如果它被省略， False 参数3可选 unicode： Boolean 值。作为一个 Unicode 文件创建为 True，作为一个 ASCII 为 False。省略为false end if 拷贝操作 fso.copyfolder path\new create,path\new create1,true 参数3可选 是否覆盖 省略为false fso.copyfile path\new create\newcreate.txt,path\new create\newcreate1.txt,true 参数3可选 是否覆盖 省略为false 删除操作 fso.deletefolder path\new create1,true 参数2可选 是否删除只读文件夹 省略为false fso.deletefile path\new create\newcreate1.txt,true 参数2可选 是否删除只读文件 省略为false 文件移动 fso.movefolder path\new create,path\new create1 必须确定目录是存在的，省略文件名时使用原文件名 if fso.fileexists(path\newcreate.txt) then判断文件是否存在 response.Write(移动文件失败，文件已存在br) else fso.movefile path\new create1\newcreate.txt,path\newcreate.txt 必须确定目录是存在的，省略文件名时使用原文件名 end if response.Write(得到文件(newcreate.txt)的文件名为:fso.GetBaseName(path\newcreate.txt)br) response.Write(得到文件(newcreate.txt)的文件扩展名为:fso.GetExtensionName(path\newcreate.txt)br) bldpath=fso.BuildPath(path,newcreate.txt) response.Write(这是我建立的路径bldpathbr) set f=fso.opentextfile(bldpath,2,True) 参数2 可选: ForReading