宁波网站设计专栏

宁波网站制作:FileSystemObject

发布时间:2018-11-14 20:53:04

  网站GetFileName:得到指定路径的文件名。
  GetFolder:得到指定路径的文件夹。
  GetParentFolderName:得到指定路径的父目录名。
  GetStandardStream(StandardStreamType,Unicode):得到输人、输出流。GetTempName:生成一个可以命名临时文件的文件名。
  制作MoveFile(Source,Destination):穆动文件。
  MoveFolder(Source,Destination):穂动文件夹。
  OpenTextFile(Filename,  Write:写入指定的字符串。
  网站制作WriteLine([String]):写人新行。

宁波网站制作:FileSystemObject的图片352

  【例5-32】将文本文件MyText.txt从当前目录中读出来,并显示在浏览器窗口中。首先创建一个文本文件,取名为MyText.txt,并在其中输入一些文字。然后就可以创建
  实例,利用TextStream就可以读出该文件的内容了。
  网站制作程序如下:

宁波网站制作:FileSystemObject的图片354

  <%@Language=”VBScript“%〉
  宁波TextStream
  〈body〉

宁波网站制作:FileSystemObject的图片353

  <%
  DimMyFileObject,MyTextFile,AllLines

宁波网站制作:FileSystemObject的图片355

  SetMyFileObject^ServerCreateObject(”Scripting.FileSystemObject“)
  SetMyTextFile—MyFileObjectOpenTextFile(Server.MapPath(”MyText.txt“))
  WhilenotMyTextFile.AtEndOfStream
  AllLines=MyTextFile.ReadlineResponse.WriteAllLines&”〈br〉“
  Wend
  MyTextFile.Close
  SetMyTextFile=Nothing
  SetMyFileObject=Nothing
  %〉
    制作在浏览器中运行后的结果如实际所示。
  实际例5-32的运行结果
  网站【例5-33】使用TextStream对象创建一个文件MyTextl.txt,并且在文件中写人”Howareyou?“
  本例要用到FileSystem和TextStream对象了。首先用FileSystemObject创建一个实例,再用CreatTextFile()创建一个TextStream对象实例,再用WriteLine()方法写人要写人的内容。
  程序如下:
  <%
  DimMyFileObject,MyTextFile,AllLines
  SetMyFileObject=Server.CreateObject(”Scripting.FileSystemObject“)
  网站SetMyTextFile=MyFileObject.CreateTextFile(Server.MapPath(”MyTextl.txt“))MyTextFile.WriteLine(”Howareyou?“)
  Response.WriteAllLines&”  MyTextFile.Close
  宁波网SetMyTextFile=Nothing
  SetMyFileObject=Nothing
  宁波%〉
  运行完程序后,宁波网站制作可以查看一下MyTextl.txt文件是否已经建立,文件中是否有要写人的内容。
  【例5-34】在当前路径下创建一个文件夹NewFolder,并显示出该文件夹。
  本例要用到FileSystem对象的CreateFolderO方法。程序如下:
    本文转载自
  宁波网站制作www.leseo.net
  补充词条:宁波网站优化推广  宁波网站seo  宁波谷歌优化  宁波seo推广公司  宁波seo排名