在某些场合,我们需要确定特定目录下特定文件是否存在。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输入要查找的文...[ 查看全文 ]