VBA操纵文件和文件夹.docx

第八章利用VBA操纵文件和文件夹作者：Julitta Korol 翻译：Tiger Chen Mar 5’ 2005在工作过程中，你肯定访问、创建、复制和删除过成百上千的文件和文件夹。然而，你可能从未用程序执行过这些任务。所以，现在就是机会。本章侧重于专门处理文件和文件夹的VBA函数和指令。通过使用这些函数，你将能够：获得当前文件夹的名称（CurDir函数）更改文件和文件夹名称（Name函数）检查某文件或文件夹是否存在于某硬盘上（Dir函数）获取某文件最后修改的时间和时间（FileDateTime函数）获取文件大小（FileLen函数）检查和更改文件属性（GetAttr和SetAttr函数）更改缺省文件夹或者硬盘（ChDir和ChDrive语句）创建和删除文件夹（MkDir和RmDir语句）复制和删除文件或文件夹（FileCopy和Kill语句）此外，本章也给你往三类文件写入或者读取数据的知识：连续的，随机的和二进制的文件。除了使用Excel应用软件界面之外，你将学习如何直接操作文件。在本章的最后，将给你介绍必威体育精装版的操作文件和文件夹的方法，通过利用称为Windows Scripting Host (WSH)的工具来操作文件和文件夹。操作文件和文件夹本节将讨论多种操作文件和文件夹的函数。1.获取当前文件夹的名称（CurDir函数）当你使用文件时，经常会需要知道当前文件夹的名称，你使用CurDir函数轻易地获取该信息：CurDir([drive])Drive是一可选参数，如果你忽略它，VBA将使用当前驱动（drive）。CurDir函数返回一个文件路径作为Variant（变量）。如果要返回作为字符串（String）的路径的话，就得使用CurDir$（这里的$是字符串的类型声明字符）。让我们在立即窗口里做些练习，练习使用这些函数吧：打开一个新工作簿，并且切换到VB编辑器窗口激活立即窗口并敲入下述代码：?CurDir当你按下回车，VB就显示当前文件夹名称，例如：C:\如果你有第二个硬盘（或者光驱）的话，你可以获取D盘上的当前文件夹，例如：?CurDir(“D:\”)如果你提供了一个并不存在的驱动字母的话，VB就将显示下述错误信息：“设备不可用”要储存当前驱动名称到变量myDrive，可以输入下述指令：myDrive = Left(CurDir$,1) 当你按下回车键时，VB将当前驱动器的字母储存到变量myDrive敲入下述指令并回车，可以检查变量myDrive的内容：?myDrive你还可以将上面的指令改为如下：myDrive = left(CurDir$,1) : VB将返回驱动器字母，后面带有一个冒号。2.更改文件或文件夹名称（Name函数）使用函数Name可以重命名文件或者文件夹，例如：Name old_pathname As new_pathname Old_pathname是你想用重命名的文件或文件夹的名称和路径，New_pathname则明确文件或文件夹的新名称和位置。使用函数Name，你可以将一个文件从一个文件夹移动到另外一个文件夹，但是，你不可以移动文件夹。请在立即窗口里试演该函数（用你文件的实际名称替换示例名称）。这里有些需要考虑的注意事项：在New_pathname里的文件名称不要指向已经存在的文件Name C:\System.1st As C:\test.txt 因为文件C:\test.txt已经存在于C盘，VB将显示错误信息：“文件已存在”，同样，如果你要重命名的文件不存在的话，就会出现“文件未找到”的错误信息。如果New_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 C:\DOS\test.txt 上面的指令将test.txt移动到C盘下的DOS文件夹里。技巧8-1 你不能重命名开启的文件在重命名文件之前，你必须关闭该文件。文件名称里不能包含通配符“*”或者“?”。3.检查文件或文件夹是否存在（Dir函数）Dir函数，返回文件或者文件夹名称，语法如下：Dir[(pathname[, attributes])] Dir函数的两个参数都是可选的，pathname是文件或文件