Question

在VB6中用什么代码判断某个文件是否存在？

比如说程序运行时判断C:\abc 文件夹中有没有一个 file.ini 文件，如果有就 xxxx ，如果没有则 yyyy

另外在窗体中放一个 文本框，用来在判断出 file.ini 存在后显示出 ini文件中的内容（比如file.ini中有一句"测试成功"）

谢谢

Answer 1

在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用vb 6.0提供的filesystemobject对象。

filesystemobject对象不是vb内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“microsoft scripting runtime”，然后利用filesystemobject的fileexists方法来判断文件是否存在。示例程序代码如下：

private sub command1_click()

′引用filesystemobject对象

dim fs as new filesystemobject

′利用filesystemobject对象的fileexists

′方法判断文件是否存在

if fs.fileexists(〃c:＊.gif〃) then

msgbox 〃文件存在〃

else

msgbox 〃文件不存在〃

end if

end sub

灵活运用filesystemobject对象可以解决与文件操作有关的大部分问题。