在对文件进行读写操作之前，有时经常需要事先判断指定文件是否存在，这时最简单的办法，就是利用filesystemobject对象的 fileexists方法来进行判断。filesystemobject对象不是vb默认内置对象，所以使用前必须先引用，具体为选择“工程”-“引 用”，然后选中microsoft scripting runtime，接着就可以利用filesystemobject的fileexists方法来判断文件是否存在。  FileExists 方法,如果指定的文件存在，返回 True，若不存在，则返回 False。
语法：
object.FileExists(filespec)
FileExists 方法语法有如下几部分：
object 必需的。始终是一个 FileSystemObject 的名字。
filespec 必需的。要确定是否存在的文件的名字。如果认为文件不在当前文件夹中，必须提供一个完整的路径说明（绝对的或相对的）。 

‘判断当前目录是否存在list.txt文件
Dim fs As New FileSystemObject
If fs.FileExists(App.Path & “\list.txt”) Then
MsgBox “file is already existed”
Else
MsgBox “file is not existed”
End If
同样，利用Filesystemobject的FileExists方法可以完成很多对文件的操作。

转载文章请注明转载自：ThinkAgain - Let's Blog!

引用地址：http://www.thinkagain.cn/archives/12.html