<<<返回

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