Sub ReadFiles Dim fso, f1, ts, s Const ForReading = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile("c:\testfile.txt", True) ' 写一行。 Response.Write "Writing file <br>" f1.WriteLine "Hello World" f1.WriteBlankLines(1) f1.Close ' 读取文件的内容。 Response.Write "Reading file <br>" Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading) s = ts.ReadLine Response.Write "File contents = '" & s & "'" ts.Close End Sub 下面的代码示范了在 JScript 中做同样的事: function ReadFiles() { var fso, f1, ts, s; var ForReading = 1; fso = new ActiveXObject("Scripting.FileSystemObject"); f1 = fso.CreateTextFile("c:\\testfile.txt", true); // 写一行。 Response.Write("Writing file <br>"); f1.WriteLine("Hello World"); f1.WriteBlankLines(1); f1.Close(); // 读取文件的内容。 Response.Write("Reading file <br>"); ts = fso.OpenTextFile("c:\\testfile.txt", ForReading); s = ts.ReadLine(); Response.Write("File contents = '" + s + "'"); ts.Close(); } 移动、复制和删除文件 FSO 对象模式各有两种方法移动、复制和删除文件,如下表所述。 任务 方法 移动文件 File.Move 或 FileSystemObject.MoveFile 复制文件 File.Copy 或 FileSystemObject.CopyFile 删除文件 File.Delete 或 FileSystemObject.DeleteFile 请考察示例代码,来领会在 FileSystemObject 中删除文件的两种方法。 下面的 VBScript 示例,在驱动器 C 的根目录中创建一个文本文件,向其中写一些信息,然后把它移动到 \tmp 目录中,并在 \temp 中做一个备份,最后把它们从两个目录中删掉。 要运行下面的示例,需要先在驱动器 C 的根目录中创建 \tmp 和 \temp 目录: Sub ManipFiles Dim fso, f1, f2, s Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile("c:\testfile.txt", True) Response.Write "Writing file <br>"
复制本页网址和标题,发送给你QQ/Msn的好友一起分享
上一篇:学习ASP之设计 FileSystemObject
下一篇:ASP的一个简单的用存储过程分页