1、读写文件(vb)（Read and write file (VB)）FSO - FileSystemObject或 scripting.filesystemobject的缩写，为 IIS内置组件，用于操作磁盘、文件夹或文本文件。FSO 的对象、方法和属性非常的多，这里用示例的方式列出常用的，如果您要查看更详尽的信息，请点击这里下载 FileSystemObject参考，注意：VBScript 语言参考或JScript 语言参考中的：FileSystemObject 用户指南和脚本运行时库参考便是微软给出的 FileSystemObject完整参考。FSO不能操作二进制文件，要操作二进制文件，请
2、使用：adodb.stream。创建文件模糊 FSO设置 FSO =服务器。CreateObject（“脚本。FileSystemObject” ）集 F = FSO。CreateTextFile（“C：测试。txt” ，真正的第二个参数表示目标文件存在时是否覆盖）写（“写入内容” ）f.writeline（“写入内容并换行” ）f.writeblanklines（3）的写入三个空白行（相当于在文本编辑器中按三次回车）F.（）设置 f =无设置 FSO打开并读文件模糊 FSO设置 FSO =服务器。CreateObject（“脚本。FileSystemObject” ）集 F = FSO。中去
3、（“C：测试。txt” ，1、假）的第二个参数 1表示只读打开，第三个参数表示目标文件不存在时是否创建（3） “将当前位置向后移三个字符 f.skipF. skipline()”将当前位置移动到下一行的第一个字符，注意：无参数响应。写 f.read（3）的从当前位置向后读取三个字符，并将当前位置向后移三个字符响应。写 F. readline()”从当前位置向后读取直到遇到换行符（不读取换行符） ，并将当前位置移动到下一行的第一个字符，注意：无参数响应。写 F. readall()”从当前位置向后读取，直到文件结束，并将当前位置移动到文件的最后如果 f.atendofline然后响应。写（“一行
4、的结尾！” ）最后如果如果 f.atendofstream然后响应。写（“文件的结尾！” ）最后如果F.（）设置 f =无设置 FSO打开并写文件模糊 FSO设置 FSO =服务器。CreateObject（“脚本。FileSystemObject” ）集 F = FSO。中去（“C：测试。txt” ，2、假）的第二个参数 2表示重写，如果是 8表示追加写（“写入内容” ）f.writeline（“写入内容并换行” ）f.writeblanklines（3）的写入三个空白行（相当于在文本编辑器中按三次回车）F.（）设置 f =无设置 FSO判断文件是否存在暗淡的光设置 FSO =服务器。Cre
5、ateObject（“脚本。FileSystemObject” ）如果 FSO。存在（“C：测试.txt” ）然后响应。写（“目标文件存在” ）其他的响应。写（“目标文件不存在” ）最后如果设置 FSO移动文件暗淡的光设置 FSO =服务器。CreateObject（“脚本。FileSystemObject” ）调用 FSO。MoveFile（“C：测试.txt” 、 “D: test111 .txt”）的两个参数的文件名部分可以不同设置 FSO复制文件暗淡的光设置 FSO =服务器。CreateObject（“脚本。FileSystemObject” ）调用 FSO。CopyFile（“C：
6、测试.txt” 、 “D: test111。Txt “ “. The filename of the two parameter can be differentSet FSO = nothingDelete fileDim FSOSet FSO = server.CreateObject (“Scripting.FileSystemObject“)Fso.DeleteFile (“C:test.txt“)Set FSO = nothingcreate folderDim FSOSet FSO = server.CreateObject (“Scripting.FileSystemObject
7、“)Fso.CreateFolder (“C:test“) the parent folder of the destination folder must existSet FSO = nothingDetermine whether the folder existsDim FSOSet FSO = server.CreateObject (“Scripting.FileSystemObject“)If fso.FolderExists (“C:Windows“) thenResponse.Write (“target folder exists“)ElseResponse.Write (
8、“target folder does not exist“)End ifSet FSO = nothingremove foldersDim FSOSet FSO = server.CreateObject (“Scripting.FileSystemObject“)Fso.DeleteFolder (“C:test“) folder does not have to be emptySet FSO = nothingCreateTextFile(filename, overwrite, Unicode)Creates a new text file in the folder with t
9、he specified filename, and returns a corresponding TextStream object. If the optional overwrite parameter is set to True, it will overwrite any existing file with the same name. The default overwrite parameter is False. If the optional Unicode parameter is set to True, the contents of the file will
10、be stored as Unicode text. The default Unicode is FalseIn the folder, you can use the ParentFolder property of the current folder to return to the parent directory. When you arrive at a folder, if the IsRootFolder attribute is True, then stop. Leaving the root directory of the drive and down the dir
11、ectory tree, you can traverse or access the specified folder in the Folders collection (returned by the SubFolders attribute of the current folder).The following program traverses all the folders in the root directory of the drive C and displays the information about each folder.The VBScript program
12、 is as follows:In VBScript:Create a FileSystemObject instanceSet objFSO = Server.CreateObject (“Scripting.FileSystemObject“)Get a reference to drive CSet objDriveC = objFSO.GetDrive (“C:“)Get a reference to the root folderSet objRoot = objDriveC.RootFolderGet a reference to the SubFolders collection
13、Set objFolders = objRoot.SubFoldersGet a reference to the first folder in the SubFolders collectionFor Each objFolder In objFoldersSet objFolder1 = objFolders.Item (objFolder.Name)Exit ForNextIterate through all the files in this folderFor Each objFile in objFolder1.FilesResponse.Write “Name:“ & obj
14、File.Name &“Response.Write “ShortName:“ & objFile.ShortName &“Response.Write “Size:“ & objFile.Size & bytes“Response.Write “Type:“ & objFile.Type & “Response.Write “Path:“ & objFile.Path &“Response.Write “ShortPath:“ & objFile.ShortPath & “Response.Write “Created:“ & objFile.DateCreated &“Response.W
15、rite “LastModified:“ & objFile.DateLastModified & “NextThe JScript program is as follows:/ /在 JScript：/创建 FileSystemObject实例无功 objfso =服务器。CreateObject（scripting FileSystemObject”。 ） ；/获取驱动器 C的引用无功 objdrivec = objfso getdrive（C：” ） ；/获取对根文件夹的引用无功 objroot = objdrivec.rootfolder；/得到参考集合的第一个文件夹的子文件夹中的无
16、功 colallfolders =新的枚举器（objroot。子文件夹） ；无功 objfolder1 = colallfolders。item()；/获取对该文件夹的文件集合的引用无功 colfiles =新的枚举器（objfolder1。文件） ；/遍历集合中的所有文件为了（；！colfiles。atend()；colfiles。movenext()）名字= colfiles。item()响应。写（name：+名字。名字+” ） ；响应。写（shortname：“+ objfile.shortname +” ） ；响应。写（size：+名字。大小+“字节” ） ；响应。写（“：”+名字。型+“” ） ；响应。写（path：+路径+名字。 ”） ；响应。写（shortpath：“+ objfile.shortpath +“” ） ；响应。写（created：“+ objfile.datecreated +” ） ；响应。写（accessed：“+ objfile.datelastaccessed +” ） ；响应。写（modified：“+ objfile.datelastmodified + ” ） ；
