对文件夹进行处理-惠州维修

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