vbDirectory16DirectoryorFolder目录或文件夹

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文件夹里。

----------------------- 页面152-----------------------

技巧8-1 你不能重命名开启的文件

在重命名文件之前，你必须关闭该文件。文件名称里不能包含通配符“*”或者“?”。

3.检查文件或文件夹是否存在（Dir 函数）

Dir函数，返回文件或者文件夹名称，语法如下：

Dir[(pathname[, attributes])]

Dir函数的两个参数都是可选的，pathname是文件或文件夹名称，对于参数attributes，你可以下

列常量或者数值之一：

表8-1 文件属性

常量数值属性名称

vbNormal 0 Normal 普通文件

vbHidden 2 Hidden 隐藏文件

vbSystem 4 System 系统文件

vbDirectory 16 Directory or Folder 目录或文件夹

Dir函数常用来检查某个文件或文件夹是否存在，如果不存在，那么就返回空字符串（””）。我们

到立即窗口里试验几个Dir函数的练习：

1. 在立即窗口，输入下述指令：

?Dir("C:\", vbNormal)

你一旦按下回车键，VB就会返回该文件夹下的第一个文件名。普通文件（vbNormal）就是除隐藏，

卷标，目录，文件夹或系统文件之外的任何文件。

要返回当前目录下的其它文件名称的话，就使用不带参数的Dir函数：

?Dir （并且回车）

2. 在立即窗口里输入下列指令，并且在你回车时检查其结果：mfile = Dir("C:\", vbHidden)

?mfile

mfile = Dir

?mfile

mfile = Dir

?mfile

3. 在立即窗口输入下述指令：

If Dir("C:\stamp.bat") = "" Then Debug.Print "文件未找到。"