 |
用Dir函数，如果函数返回为空字符串则文件不存在，如：
If Dir("C:\Win95\My.txt") = "" Then MsgBox "文件不存在。"
 何滔的意见：
可用FileExists 方法:（摘自MSDN）
object.FileExists(filespec)
如果指定的文件存在，返回 True，若不存在，则返回 False。
FileExists 方法语法有如下几部分：
object 必需的。始终是一个 FileSystemObject 的名字。
filespec 必需的。要确定是否存在的文件的名字。如果认为文件不在当前文件夹中，必须提供一个完整的路径说明（绝对的或相对的）。
例如：
Private Sub Form_Load()
Dim fso As New FileSystemObject
If fso.FileExists("C:\Windows\ShellIconCache") Then SetAttr "C:\Windows\ShellIconCache", vbNormal
End Sub
要先在“引用”对话框中选中Microsoft Scripting Runtime
主持人注：这种方法比Dir的方法麻烦，特别是分发程序的时候。
Heero Zhang的意见：
可以用另外一种方法判断，用FileLen函数。
该函数返回一个 Long，代表一个文件的长度，单位是字节。
语法
FileLen(pathname)
必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。
例如：
If FileLen("TESTFILE") then
'文件存在
End if
 相关问题：
QA000418 "如何用程序来把一个目录下面的所有的文件列出来"
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 磁盘、文件和目录, disk, file, fat, directory, folder。
|
如何检测指定目录下的指定文件是否存在
