文件夹操作，包括复制、移动和删除文件夹

文件夹操作主要包括复制、移动和删除文件夹，检查文件夹是否存在以及获取文件夹的属性。使用FileSystemObject对象可以完成这些操作。

使用FileSystemObject对象处理文件夹时，将要用到的方法有下面几个。

（1）CreateFolder方法：用于创建文件夹。

语法格式：

Object.CreateFolder（foldername）

注意

如果指定的文件夹已经存在， 则会出现错误。

（2）CopyFilder方法：将文件夹从某位置递归复制到另一位置。

语法格式：

Object .CopyFolder source，destination，overwrite

说明：只能在source 参数的路径最后一个组成部分中使用通配符。

例如，可以使用fso.CopyFolder″c：\mydocuments\letters\*″，″c：\tempfolder\″。

但是，不可以使用fso.CopyFolder″c：\mydocuments\*\*″，″c：\tempfolder\″。

如果source包含通配符或destination以路径分隔符（\）结束，则假定destination是现有文件夹，在该文件夹中复制匹配文件夹或子文件夹；否则，假定destination是要创建的文件夹。

在任何一种情况下，复制单个文件夹时，会发生如下4种情况。

●如果destination不存在，则复制source文件夹及其所有内容。这是通常会发生的情况。

●如果destination是已经存在的文件，则出现错误。

●如果destination是目录，则复制文件夹和其中的所有内容。如果在destination已经存在source

包含的文件，且overwrite为False，则会出现错误；否则，复制该文件覆盖现有文件。

●如果destination是只读目录，在向该目录复制现有只读文件，且overwrite为False时，

就会出现错误。

如果source使用通配符，但没有匹配文件时，也会出现错误。

CopyFolder方法在遇到出现的第一个错误时停止。该方法不会撤销错误发生前所做的任何更改。

（3）MoveFolder方法：将一个或多个文件夹从某位置移动到另一个位置。

语法格式：

Object.MoveFolder source，destination

说明：如果source包含通配符或destination以路径分隔符（）结束，则假定destination是现有文件夹，将匹配文件移动到该文件夹中；否则，假定destination是要创建的目标文件夹。在任何一种情况下，移动单个文件夹时，可能会发生以下3种情况。

●如果destination不存在，则移动文件夹。这是通常会发生的情况。

●如果destination是已经存在的文件夹，则会出现错误。

●如果destination是文件，则会出现错误。

如果source使用通配符，但没有匹配文件夹时，则会出现错误。MoveFolder方法在遇到出现的第一个错误时停止。该方法不会撤销错误发生前所做的任何更改。

（4）DeleteFolder方法：删除指定的文件夹和其中的内容。

语法格式：

Object.DeleteFolderpath，force

说明：DeleteFolder方法不能区分文件夹中是否包含内容。无论文件夹是否包含内容，都将删除该文件夹。如果未找到匹配文件夹，则会出现错误。DeleteFolder方法在遇到出现的第一个错误时停止。该方法不会撤销发生前所做的任何更改。

（5）FolderExists方法：检查指定的文件夹是否存在，如果该文件夹存在，则返回True，否则返回False。

语法格式：(www.xing528.com)

Object.FolderExists（path）

（6）GetFolder方法：返回与指定的路径中某文件夹相应的Folder对象。

语法格式：

Object.GetFolder（path）

说明：如果指定文件夹不存在，则会出现错误。

（7）GetParentFolderName方法：返回一个字符串，该字符串包含指定的路径中最后一个文件或文件夹的父文件夹。

语法格式：

Object.GetParentFolderName（path）

说明：如果path参数指定的文件或文件夹无父文件夹，则GetParentFolderName方法返回零长度字符串（″″）。另外，GetParentFolderName方法只能对提供path的字符串起作用。它不能试图分析一个路径，也不能检查指定路径是否存在。

其中参数详见表5-4。

【例5.7】使用FileSystenObject对象完成文件夹的创建、复制、移动和删除操作，运行结果如图5-6所示。

图 5-6 文件夹操作示例

文件命名为 “5-7.asp”的代码如下 ：

〈％ @ LANGUAGE ＝ ″VBScript″％〉

〈HTML〉

〈HEAD〉

〈TITLE〉文件夹操作示例〈/TITLE〉

〈/HEAD〉

〈BODY〉

〈％

Dim fso

Set fso＝Server .CreateObject （″Scripting.FileSystemObject″）

％〉

〈P〉正在创建文件夹-〉-〉-〉-〉-〉-〉-〉-〉-〉〈/P〉

〈％fso.CreateFolder ″e：folderl″％〉

〈P〉正在移动文件夹-〉-〉-〉-〉-〉-〉-〉-〉-〉〈/P〉

〈％fso.MoveFolder ″e：\folderl″，″e：folder2″％〉

〈P〉正在复制文件夹-〉-〉-〉-〉-〉-〉-〉-〉-〉〈/P〉

〈％fso.CopyFolder ″e：\folder2″，″e：folderl″％〉

〈P〉正在删除文件夹-〉-〉-〉-〉-〉-〉-〉-〉-〉〈/P〉

〈％fso.DeleteFolder ″e：folderl″％〉

〈％fso.DeleteFolder ″e：folder2″％〉

〈P〉文件夹操作结束！〈/P〉

〈/BODY〉

〈/HTML〉