FSO组件对文件夹进行处理

介绍的是操作文件夹以及显示其中的内容。你同样有两种选择，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
    %>

更多的FSO组件对文件夹进行处理请到论坛查看: http://BBS.TC711.COM

【双击滚屏】【评论】【收藏】【打印】【关闭】来源：互联网日期：2007-1-13 15:12:12