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

在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用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对象可以解决与文件操作有关的大部分问题。

将窗口加载的事件处理程序改成这样：PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimfilePathAsString=“在此输入希望判断的文件名”IfNot(file.Exists(System.AppDomain.CurrentDomain.BaseDirectory&filePath)Then'将应用程序存在的目录及文件名拼接起来，然后判断是否存在Me.Close()'如果不存在，则将关闭窗口EndSub