VBS FSO对象实例.doc

!- VBS FSO对象实例(自己整理)2009年02月26日 星期四 下午 1:11 -fso对象 %dim fso,path,f,bldpathset fso=server.CreateObject(scripting.filesystemobject)创建FSO对象path=server.MapPath(.)response.Write(当前操作路径为：&path&)判断驱动器是否存在response.Write(驱动器D是否存在：&fso.driveexists(d)&)response.Write(驱动器Z是否存在：&fso.driveexists(z)&)-if fso.folderexists(path&new create) then 判断文件夹是否存在response.Write(创建文件夹失败，文件夹已存在&)elsefso.createfolder(path&new create)创建文件夹end if-if fso.fileexists(path&new createnewcreate.txt) then判断文件是否存在response.Write(创建文件失败，文件已存在&)elsefso.createtextfile path&new createnewcreate.txt,false,false创建文件参数2可选 overwrite：Boolean 值，可被覆盖其值为 True，不能覆盖其值为 False 。如果它被省略， False 参数3可选 unicode： Boolean 值。作为一个 Unicode 文件创建为 True，作为一个 ASCII 为 False。省略为falseend if拷贝操作-fso.copyfolder path&new create,path&new create1,true参数3可选 是否覆盖 省略为falsefso.copyfile path&new createnewcreate.txt,path&new createnewcreate1.txt,true参数3可选 是否覆盖 省略为false删除操作-fso.deletefolder path&new create1,true参数2可选 是否删除只读文件夹 省略为falsefso.deletefile path&new createnewcreate1.txt,true参数2可选 是否删除只读文件 省略为false文件移动-fso.movefolder path&new create,path&new create1必须确定目录是存在的，省略文件名时使用原文件名if fso.fileexists(path&newcreate.txt) then判断文件是否存在response.Write(移动文件失败，文件已存在&)elsefso.movefile path&new create1newcreate.txt,path&newcreate.txt必须确定目录是存在的，省略文件名时使用原文件名end if-response.Write(得到文件(newcreate.txt)的文件名为:&fso.GetBaseName(path&newcreate.txt)&)response.Write(得到文件(newcreate.txt)的文件扩展名为:&fso.GetExtensionName(path&newcreate.txt)&)bldpath=fso.BuildPath(path,newcreate.txt)response.Write(这是我建立的路径&bldpath&)-set f=fso.opentextfile(bldpath,2,True)参数2 可选:ForReading 1 以只读方式打开文件。 不能写这个文件。 ForWriting 2 以写方式打开文件 ForAppending 8 打开文件并从文件末尾开始写。参数3 可选:指明当指定的 filename 不存在时是否创建新文件。 如果创建新文件则值为 True ，如果不创建则为 False 。 如果忽略，则不创建新文件。参数4 可选:TristateTrue 以 Unicode 格式打开文件。 TristateFalse 以 ASCII 格式打开文件。 TristateUseDefault 使用系统默认值打开文件。 f.writeline(这是写入第一行的内容)f.writeline(这是写入第二行的内容)f.writeline(这是写入第三行的内容)f.closeset f = fso.OpenTextFile(bldpath,8)f.WriteBlankLines(2)空2行再写f.Writeline(这是追加方式打开的) f.Writeline(这是追加方式打开的1) f.Closeset f=fso.opentextfile(bldpath,1)if not f.atEndOfStream thenresponse.Write(读出7个字:&f.read(7)&)response.Write(读出当前行内容:&f.readline&)response.write(读出所有内容:&f.readall&)end iff.closeset f=nothing遍历操作-bianli(path)function bianli(path)set objFolder=fso.GetFolder(path)创建文件夹对象set objFiles=objFolder.Files得到文件夹下的文件集合for each files in objFiles response.Write(files& 属性:&files.attributes&)next0 普通文件。没有设置任何属性。1 只读文件。可读写。2 隐藏文件。可读写。4 系统文件。可读写。16 文件夹或目录。只读。32 上次备份后已更改的文件。可读写。1024 链接或快捷方式。只读。2048 压缩文件。只读。如果存在多个属性则相加 比如 即只读又隐藏则为 1+2=3set objSubFolders=objFolder.Subfolders得到文件夹下的子文件夹集合for each Folders in objSubFolders response.Write(Folders& 属性:&Folders.attributes&) bianli(Folders)nextset objFolder=nothingset objFiles=nothingset objSubFolders=nothingend functionset myfile=fso.GetFile(bldpath) 得到文件response.Write(&bldpath&)response.Write(文件名为:&myfile.Name&)response.Write(创建时间为:&myfile.Datecreated&)response.Write(上次访问时间为:&myfile.DateLastAccessed&)response.Write(上次修改时间为:&myfile.DateLastModified&)response.Write(文件路径为:&myfile.Path&)response.Write(文件类型为:&myfile.Type&)response.Write(文件大小为:&myfile.Size&)response.Write(文件父目录为:&myfile.ParentFolder&)response.Write(文件属性为:&myfile.attribut