第八章 利用vba操纵文件和文件夹

《第八章 利用vba操纵文件和文件夹》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、第八章利用VBA操纵文件和文件夹作者：JulittaKorol翻译：TigerChenMar5’2005在工作过程中，你肯定访问、创建、复制和删除过成百上千的文件和文件夹。然而，你可能从未用程序执行过这些任务。所以，现在就是机会。本章侧重于专门处理文件和文件夹的VBA函数和指令。通过使用这些函数，你将能够：·获得当前文件夹的名称（CurDir函数）·更改文件和文件夹名称（Name函数）·检查某文件或文件夹是否存在于某硬盘上（Dir函数）·获取某文件最后修改的时间和时间（FileDateTime函数）·获取文件大小（FileLen函数）·检查和更改文件属性（GetAttr和SetAttr函数

2、）·更改缺省文件夹或者硬盘（ChDir和ChDrive语句）·创建和删除文件夹（MkDir和RmDir语句）·复制和删除文件或文件夹（FileCopy和Kill语句）此外，本章也给你往三类文件写入或者读取数据的知识：连续的，随机的和二进制的文件。除了使用Excel应用软件界面之外，你将学习如何直接操作文件。在本章的最后，将给你介绍最新的操作文件和文件夹的方法，通过利用称为WindowsScriptingHost(WSH)的工具来操作文件和文件夹。操作文件和文件夹本节将讨论多种操作文件和文件夹的函数。获取当前文件夹的名称（CurDir函数）当你使用文件时，经常会需要知道当前文件夹的名称，你使

3、用CurDir函数轻易地获取该信息：CurDir([drive])Drive是一可选参数，如果你忽略它，VBA将使用当前驱动（drive）。CurDir函数返回一个文件路径作为Variant（变量）。如果要返回作为字符串（String）的路径的话，就得使用CurDir$（这里的$是字符串的类型声明字符）。让我们在立即窗口里做些练习，练习使用这些函数吧：1.打开一个新工作簿，并且切换到VB编辑器窗口2.激活立即窗口并敲入下述代码：?CurDir当你按下回车，VB就显示当前文件夹名称，例如：C:如果你有第二个硬盘（或者光驱）的话，你可以获取D盘上的当前文件夹，例如：?CurDir(“D:”

4、)如果你提供了一个并不存在的驱动字母的话，VB就将显示下述错误信息：“设备不可用”3.要储存当前驱动名称到变量myDrive，可以输入下述指令：myDrive=Left(CurDir$,1)当你按下回车键时，VB将当前驱动器的字母储存到变量myDrive敲入下述指令并回车，可以检查变量myDrive的内容：?myDrive你还可以将上面的指令改为如下：myDrive=left(CurDir$,1)&":"VB将返回驱动器字母，后面带有一个冒号。更改文件或文件夹名称（Name函数）使用函数Name可以重命名文件或者文件夹，例如：Nameold_pathnameAsnew_pathnameOl

5、d_pathname是你想用重命名的文件或文件夹的名称和路径，New_pathname则明确文件或文件夹的新名称和位置。使用函数Name，你可以将一个文件从一个文件夹移动到另外一个文件夹，但是，你不可以移动文件夹。请在立即窗口里试演该函数（用你文件的实际名称替换示例名称）。这里有些需要考虑的注意事项：·在New_pathname里的文件名称不要指向已经存在的文件Name"C:System.1st"As"C:test.txt"因为文件C:test.txt已经存在于C盘，VB将显示错误信息：“文件已存在”，同样，如果你要重命名的文件不存在的话，就会出现“文件未找到”的错误信息。·如果Ne

6、w_pathname已经存在，并且和Old_pathname不同，函数Name必要时将文件移动到新文件夹并且更改它的名称。Name"C:System.1st"As"D:test.txt"因为文件test.txt在D盘的根目录下并不存在，VB将C:System.1st移动到指定的驱动盘，然而，并不重命名该文件。（译者：本段与上面的内容似乎矛盾，而且未能试验成功，未知是原书失误与否。读者应仔细验证）·如果New_pathname和Old_pathname指向不同的目录，以及提供的文件名称相同，那么Name函数将指定的文件移到新地址，不用更改文件名。Name"D:test.txt"As"

7、C:DOStest.txt"上面的指令将test.txt移动到C盘下的DOS文件夹里。技巧8-1你不能重命名开启的文件在重命名文件之前，你必须关闭该文件。文件名称里不能包含通配符“*”或者“?”。检查文件或文件夹是否存在（Dir函数）Dir函数，返回文件或者文件夹名称，语法如下：Dir[(pathname[,attributes])]Dir函数的两个参数都是可选的，pathname是文件或文件夹名称，对于参数attr