在某些场合，我们需要确定特定目录下特定文件是否存在。VB自带的DIR函数可以查找符合条件的文件(在VB编程乐园已经有过介绍)，但用起来略显复杂。这里介绍一种较为简单的方法。
　　API函数的SHFileExists的功能，从其名字来看，应该是SearchFileExists，亦即查找存在的文件。用它来检测文件存在与否是很容易的。试看下面的例子。
　　
　　在标准EXE工程放置两个文本框和一个按钮，输入如下代码：
　　
　　PrivateDeclareFunctionSHFileExistsLib"shell32"Alias"#45"(ByValszPathAsString)AsLong
　　
　　PrivateSubCommand1_Click()
　　DimiAsInteger
　　i=Str$(SHFileExists(Text1.Text))
　　Ifi=0Then'Str$值只有两种可能，0或者1
　　Text2.Text="文件不存在"
　　Else
　　Text2="文件存在"
　　EndIf
　　EndSub
　　
　　按F5运行程序，在Text1输入要查找的文件的驱动器名、路径和名称，然后点击按钮，Text2会报告文件是否存在。
　　值得一提的是，SHFileExists函数支持对任何文件的查找，同时也支持对文件夹的查找。->