日期:2009-10-15  浏览次数:21082 次

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