VB 判断文件是否存在

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