FSO组件操作实例技巧(4)

http://xue8.net 2006-10-4 15:33 来源:学吧
文章来自于【学吧】http://xue8.net/program/view.asp?ArticleID=1175
  四、fso.MoveFolder
  
  主要作用是进行文件夹的移动,相当于剪切粘贴动作。
  
  5、movefldr.asp
  
  <%
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CreateFolder ("c:\cnbruce")
  fso.MoveFolder "c:\cnbruce", "C:\Program Files\"
  %>
  <a href="C:\Program Files\">查看cnbruce文件夹有没有移动过来</a>
  
  格式:fso.MoveFolder "被移动的文件夹","移动到的文件夹"
  
  本程序先是在C盘下建立了cnbruce文件夹,然后将其移动到C:\Program Files\文件夹下面。
  不过同样需要注意的是你的系统文件夹不能乱移动。
  五、fso.CopyFolder
  主要作用:将文件夹从某位置复制到另一位置。
  
  6、copyfldr.asp
  
  <%
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CopyFolder "c:\Program Files\cnbruce", "c:\"
  %>
  <a href="C:\">查看cnbruce文件夹有没有复制过来</a>
  
  该程序是建立在上一movefldr.asp的执行结果基础之上来完成复制到C盘根目录下的。(话比较长-_-!)
  当然,其拷贝也是将该文件夹包括里面所以子文件夹和文件统统拷贝。
  到最后再试着将c:\Program Files\cnbruce和c:\cnbruce两个文件夹进行删除掉吧。
  不过,继续提醒你:不要写错了,比如写成c:\Program Files,那你就惨了:这叫玩命,学ASP玩出心跳出来了。
  对文件夹的操作差不多了,是不是感到用处比较大?有训言:好东西是把双刃剑。正义和邪恶就只一线间,注意正规合理利用该组件。不过还有你放心的是,现在网站空间服务商对这权力已经限定得死死的了,你再怎么闹翻也不会冒泡的:)
  然后接下来就是更微妙的:FSO对文件的操作。
  FSO中除了可以对驱动器、文件夹的操作以外,功能最强大的就是对文件的操作了。它可以用来记数、内容管理、搜索还可生成动态HTML页面等等。
  
  一、fso.OpenTextFile
  
  无需多说,fso.OpenTextFile就是打开某个文件了,一般情况之下是打开的txt文本文件。所以首先我们先建立一个txt文件,然后通过FSO来读取其中的内容。
  
  1、info.txt
  
  name:cnbrucesex:male
  建立了该文件,下面再做个ASP页面,当然最好两个文件是在同一目录下。
  
  2、opentxt.asp
  
  <%
  whichfile=server.mappath("info.txt")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set txt = fso.OpenTextFile(whichfile,1)
  rline = txt.ReadLine
  rline = rline & "<br>" & txt.ReadLine
  Response.Write rlinetxt.Close
  %>
  需要注意:无论是通过FSO打开驱动器、打开文件夹、打开文件,以及以后要接触到的打开数据库,都只能是打开绝对物理路径地址。但一般情况是上传到空间服务商那,不能很直接地了解到自己文件的所在位置,所以强烈推荐使用server.mappath方法:平台移植性强,适用性强。
  CreateObject("Scripting.FileSystemObject")建立了FSO组件的连接,fso.OpenTextFile(whichfile,1)打开了info.txt该文件。参数“1”表示“ForReading:以只读方式打开文件。不能写这个文件。”,其他还有参数“2”表示“ForWriting:以写方式打开文件”,参数“8”表示“ForAppending:打开文件并从文件末尾开始写”。 打开了该文件,接下来是不是要显示文件中的内容?那就通过txt.ReadLine方法读取文本中的一整行,如果需要继续读取下一行,则继续使用txt.ReadLine方法。当然初此还有其它的读取方法,比如txt.Read(7)读取指定数量的字符,txt.ReadAll返回文本中的全部内容。

发表评论

用户名:
密 码:
匿名评论
请发表评论时遵纪守法并注意语言文明!
验证码:
用户名
评论内容
目前尚无评论!