FSO组件对文件夹进行处理

来源：作者：出处：巧巧读书 2006-10-09 进入讨论组

关键词：
server
html
asp
rip
nat

　　介绍的是操作文件夹以及显示其中的内容。你同样有两种选择，FileSystemObject对象和Folder对象，下面的例子会显示所有c:\MyFolder下面的文件
<HTML>
<HEAD><TITLE>文件夹内容</TITLE></HEAD>
<BODY>
<%

'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder(“c:\MyFolder”)
'循环显示其中文件
For Each thing in MyFolder.Files
　Response.Write(“<p>”&thing)
Next
%>
</Body>
</HTML>
　　这个例子中，Folder对象由FileSystemObject对象的GetFolder()方法来创建，创建后使用了For Each循环将Folder对象的Files方法中的文件显示出来：
　　显示结果如下：
c:\myfolder\NETLOG.TXT
c:\myfolder\ASPtest.ASP
c:\myfolder\Banner.gif
c:\myfolder\ChatPage.htm
c:\myfolder\error.log
c:\myfolder\test.txt
c:\myfolder\WhosOn.ASP
　　FileSystemObject对象包括了许多种集合和方法来处理文件夹，下面是对每一种主要的使用进行分别的介绍：
　　·CopyFolder source, destination [,Overwrite]。这个方法用来进行文件夹的复制，你可以使用通配符来进行多目录的复制（进行备份工作），同时，如果目的目录已经存在，可以通过将Overwrite参数设为TRUE的方法来进行覆盖。注意这里面默认值为TRUE。
　　·CreateFolder FolderSpecifier。创建一个指定的文件夹
　　·DeleteFolder FolderSpecifier。删除一个指定的文件夹
　　·FolderExists(FolderSpecifier). 如果该指定文件夹存在，返回True，否则返回False。
　　·GetFolder(FolderSpecifier). 对指定的文件夹创建一个Folder对象
　　·GetParentFolderName(Path).返回包含该路径的上一级目录名。
　　·MoveFolder source, Destinatioin。将指定目录进行移动，你可以利用通配符来移动多个文件夹。
　　下面是一个典型应用的例子：
<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
'创建一个用来操作的文件夹
MyFileObject.CreateFolder(“C:\NewFolder”)
'移动该文件夹
MyFileObject.MoveFolder “C:\NewFolder” “C:\NewFolder2”
'删除这个文件夹
MyFileObject.DeleteFolder “C:\NewFolder2”
%>
　　下面介绍相应的Folder对象中的方法、属性。
　　·CopyFolder newcopy [,overwrite].将当前文件夹复制到新的位置，如果存在与目的文件夹同名情况而且overwrite参数为False，则会报错。
　　·DeleteFolder.删除当前文件夹
　　·Files.返回所有该目录下文件的集合。其中隐含文件不显示
　　·IsRootFolder.如果是根目录返回True
　　·MoveFolder FolderSpecifier.移动当前目录到另外的位置
　　·name.返回当前目录名称
　　·ParentFolder.返回到上一级目录
　　·Size.显示目前目录及子目录的所有文件大小总和。
　　·SubFolders.返回为所有这个文件夹下面子目录的集合。
　　利用这些方法之前，你需要首先创建一个Folder对象的事例。下面的例子将显示所有C:\MyFolder下面的子目录。
<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder(“c:\MyFolder”)
循环显示其中子目录
For Each thing in MyFolder.Files
　Response.Write(“<p>”&thing)
Next
%>文字：http://www.qqread.com/asp/2006/10/s221541.html