📄 19-4.cfm.htm
字号:
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">
<META NAME="Generator" CONTENT="Microsoft Word 97">
<TITLE>对文件夹和驱动器进行操作</TITLE>
</HEAD>
<BODY LINK="#0000ff">
<B><FONT FACE="宋体" LANG="ZH-CN" SIZE=5><P ALIGN="JUSTIFY">对文件夹和驱动器进行操作</P>
</B></FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY"> 这部分介绍对文件夹和驱动器进行操作的一些方法,你将学会如何从当前服务器上接受有关驱动器的信息以及对目录的创建、删除移动和显示内容操作。</P>
<B><P ALIGN="JUSTIFY"> </P>
</FONT><FONT FACE="宋体" LANG="ZH-CN"><P ALIGN="JUSTIFY">对驱动器的操作</P>
</B></FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY"> 有两个对象用来接受当地机器的驱动器信息,一个是FilsSsystemObject对象,另外一个是Drive对象。例如下面的例子会显示服务器上所有的硬盘以及它们的总大小和尚可提供的大小。</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><HTML></P>
<P ALIGN="JUSTIFY"><HEAD><TITLE>驱动器显示列表</TITLE></HEAD></P>
<P ALIGN="JUSTIFY"><%</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个FilsSystemObject对象的事例</P>
<P ALIGN="JUSTIFY">Set MyFileObject=Server.CreateObject(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Scripting.FileSystemObject</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>对Drives集合进行循环</P>
<P ALIGN="JUSTIFY">For Each thing in MyFileObject.Drives</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"><BR>驱动器号:<%=thing.DriveLetter %></P>
<P ALIGN="JUSTIFY"><BR>驱动器总容量:<%=thing.TotalSize %></P>
<P ALIGN="JUSTIFY"><BR>驱动器尚可提供容量:<%=thing.AvailableSpace %></P>
<P ALIGN="JUSTIFY"><HR></P>
<P ALIGN="JUSTIFY"><%</P>
<P ALIGN="JUSTIFY">NEXT</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"></BODY></P>
<P ALIGN="JUSTIFY"></HTML></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">下面是显示结果(图19.3):</P>
<P ALIGN="JUSTIFY"><IMG SRC="Image122.gif" tppabs="http://210.74.168.175/guide/asp/part19/Image122.gif" WIDTH=535 HEIGHT=453> <B>图19.3 本地计算机上的磁盘驱动器</P>
</B><P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> FileSystemObject对象的Drivers集合就包括了服务器上的所有可提供的驱动器信息,不过,这指的是已经获得盘符的驱动器。</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">下面是FileSystemObject对象的有关驱动器的方法:</P>
<P ALIGN="JUSTIFY">■DriveExists(DriveSpecifier).如果存在该驱动器则返回TRUE</P>
<P ALIGN="JUSTIFY">■Drives.返回当前机器的驱动器集合</P>
<P ALIGN="JUSTIFY">■GetDrive(DriveSpecifier).返回对应限定驱动器的Drive对象</P>
<P ALIGN="JUSTIFY">■GetDriveName(Path).返回包含该路径的驱动器名称</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">另外,作为Driver对象也有自己的方法和属性来处理驱动器</P>
<P ALIGN="JUSTIFY">■AvailableSpace.返回当前驱动器的可用空间</P>
<P ALIGN="JUSTIFY">■DriverLetter.返回当前驱动器的盘符</P>
<P ALIGN="JUSTIFY">■DriveType.返回当前驱动器的类型,例如是CD-ROM或者removable drive</P>
<P ALIGN="JUSTIFY">■FreeSpace.和AvailableSpace几乎一致,用字节数返回当前可用空间大小。</P>
<P ALIGN="JUSTIFY"> </P>
<B><P ALIGN="JUSTIFY">注意</P>
</B><P ALIGN="JUSTIFY"> 有说法说新的NT版本允许站长给每一个用户分配限定的硬盘空间,那样FreeSpace方法和AvailableSpace方法的显示结果就有可能有区别。</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">■IsReady.指示是否当前卷可以使用,这对于指示一个可擦写的驱动器的状态十分有用。</P>
<P ALIGN="JUSTIFY">■Path.指示目前驱动器的路径</P>
<P ALIGN="JUSTIFY">■RootFolder.这个属性会将该驱动器作为一个根目录而返回一个Folder对象</P>
<P ALIGN="JUSTIFY">■SerialNumber.接收这个驱动器的序列号</P>
<P ALIGN="JUSTIFY">■ShareName返回该驱动器的共享名称</P>
<P ALIGN="JUSTIFY">■TotalSize.返回该驱动器的总容量</P>
<P ALIGN="JUSTIFY">■VolumnName.返回代表驱动器的卷名字符串</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> 用户在使用这些集合和方法之前,必须首先创建一个Driver对象的事例。这时你可以使用FileSystemObject对象的GetFile()方法来创建,下面这个例子脚本将返回C盘的卷名。</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><%</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个FileSystemObject对象的事例</P>
<P ALIGN="JUSTIFY">Set MyFileObject=Server.CreateObject(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Scripting.FileSystemObject</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个Drive对象的事例</P>
<P ALIGN="JUSTIFY">Set MyDrive=MyFileObject.GetFile(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>C:</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
<P ALIGN="JUSTIFY">Response.Write(MyDrive.VolumnName)</P>
<P ALIGN="JUSTIFY">%></P>
<B><P ALIGN="JUSTIFY"> </P>
</FONT><FONT FACE="宋体" LANG="ZH-CN"><P ALIGN="JUSTIFY">对文件夹进行处理</P>
</B></FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY"> 这部分介绍的是操作文件夹以及显示其中的内容。你同样有两种选择,FileSystemObject对象和Folder对象,下面的例子会显示所有c:\MyFolder下面的文件</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><HTML></P>
<P ALIGN="JUSTIFY"><HEAD><TITLE>文件夹内容</TITLE></HEAD></P>
<P ALIGN="JUSTIFY"><BODY></P>
<P ALIGN="JUSTIFY"><%</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个FileSystemObject对象的事例</P>
<P ALIGN="JUSTIFY">Set MyFileObject=Server.CreateObject(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Scripting.FileSystemObject</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个Folder对象</P>
<P ALIGN="JUSTIFY">Set MyFolder=MyFileObject.GetFolder(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>c:\MyFolder</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>循环显示其中文件</P>
<P ALIGN="JUSTIFY">For Each thing in MyFolder.Files</P>
<P ALIGN="JUSTIFY"> Response.Write(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><p></FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>&thing)</P>
<P ALIGN="JUSTIFY">Next</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"></Body></P>
<P ALIGN="JUSTIFY"></HTML></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> 这个例子中,Folder对象由FileSystemObject对象的GetFolder()方法来创建,创建后使用了For Each循环将Folder对象的Files方法中的文件显示出来:</P>
<P ALIGN="JUSTIFY">显示结果如图19.4。</P>
<P ALIGN="JUSTIFY"><IMG SRC="Image123.gif" tppabs="http://210.74.168.175/guide/asp/part19/Image123.gif" WIDTH=534 HEIGHT=332> <B> 图19.4 文件夹的内容</P>
</B><P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> FileSystemObject对象包括了许多种集合和方法来处理文件夹,下面是对每一种主要的使用进行分别的介绍:</P>
<P ALIGN="JUSTIFY">■CopyFolder source, destination [,Overwrite]。这个方法用来进行文件夹的复制,你 可以使用通配符来进行多目录的复制(进行备份工作),同时,如果目的目录已经存在,可以通过将Overwrite参数设为TRUE的方法来进行覆盖。注意这里面默认值为TRUE。</P>
<P ALIGN="JUSTIFY">■CreateFolder FolderSpecifier。创建一个指定的文件夹</P>
<P ALIGN="JUSTIFY">■DeleteFolder FolderSpecifier。删除一个指定的文件夹</P>
<P ALIGN="JUSTIFY">■FolderExists(FolderSpecifier). 如果该指定文件夹存在,返回True,否则返回False。</P>
<P ALIGN="JUSTIFY">■GetFolder(FolderSpecifier). 对指定的文件夹创建一个Folder对象</P>
<P ALIGN="JUSTIFY">■GetParentFolderName(Path).返回包含该路径的上一级目录名。</P>
<P ALIGN="JUSTIFY">■MoveFolder source, Destinatioin。将指定目录进行移动,你可以利用通配符来移动 多个文件夹。</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY">下面是一个典型应用的例子:</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><%</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个FileSystemObject对象的事例</P>
<P ALIGN="JUSTIFY">Set MyFileObject=Server.CreateObject(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Scripting.FileSystemObject</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个用来操作的文件夹</P>
<P ALIGN="JUSTIFY">MyFileObject.CreateFolder(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>C:\NewFolder</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>移动该文件夹</P>
<P ALIGN="JUSTIFY">MyFileObject.MoveFolder </FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>C:\NewFolder</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3> </FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>C:\NewFolder2</FONT><FONT SIZE=3>”</P>
<P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>删除这个文件夹</P>
<P ALIGN="JUSTIFY">MyFileObject.DeleteFolder </FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>C:\NewFolder2</FONT><FONT SIZE=3>”</P>
</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> 下面介绍相应的Folder对象中的方法、属性。</P>
<P ALIGN="JUSTIFY">■CopyFolder newcopy [,overwrite].将当前文件夹复制到新的位置,如果存在与目的 文件夹同名情况而且overwrite参数为False,则会报错。</P>
<P ALIGN="JUSTIFY">■DeleteFolder.删除当前文件夹</P>
<P ALIGN="JUSTIFY">■Files.返回所有该目录下文件的集合。其中隐含文件不显示</P>
<P ALIGN="JUSTIFY">■IsRootFolder.如果是根目录返回True</P>
<P ALIGN="JUSTIFY">■MoveFolder FolderSpecifier.移动当前目录到另外的位置</P>
<P ALIGN="JUSTIFY">■name.返回当前目录名称</P>
<P ALIGN="JUSTIFY">■ParentFolder.返回到上一级目录</P>
<P ALIGN="JUSTIFY">■Size.显示目前目录及子目录的所有文件大小总和。</P>
<P ALIGN="JUSTIFY">■SubFolders.返回为所有这个文件夹下面子目录的集合。</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"> 利用这些方法之前,你需要首先创建一个Folder对象的事例。下面的例子将显示所有C:\MyFolder下面的子目录。</P>
<P ALIGN="JUSTIFY"> </P>
<P ALIGN="JUSTIFY"><%</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个FileSystemObject对象的事例</P>
<P ALIGN="JUSTIFY">Set MyFileObject=Server.CreateObject(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>Scripting.FileSystemObject</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>创建一个Folder对象</P>
<P ALIGN="JUSTIFY">Set MyFolder=MyFileObject.GetFolder(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>c:\MyFolder</FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>)</P>
</FONT><FONT SIZE=3><P ALIGN="JUSTIFY">‘</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>循环显示其中子目录</P>
<P ALIGN="JUSTIFY">For Each thing in MyFolder.Files</P>
<P ALIGN="JUSTIFY"> Response.Write(</FONT><FONT SIZE=3>“</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3><p></FONT><FONT SIZE=3>”</FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>&thing)</P>
<P ALIGN="JUSTIFY">Next</P>
<P ALIGN="JUSTIFY">%></P>
<P ALIGN="JUSTIFY"> </P>
</FONT><B><FONT FACE="宋体" LANG="ZH-CN" SIZE=5><P ALIGN="JUSTIFY">总结</P>
</B></FONT><FONT SIZE=3><P ALIGN="JUSTIFY"> </FONT><FONT FACE="宋体" LANG="ZH-CN" SIZE=3>这一章相当重要,描述了各种对文件系统进行远程操作的方法,那么你就可以在任何地方利用这些对文件、文件夹以及驱动器的操作组件、方法和属性来对你的服务器进行管理,对于高级站物管理人员和站点设计人员,学会使用和控制这些操作过程是相当重要的。</P></FONT></BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -