用VB开发一个文件搜索器

VB开发一个文件搜索器新建一个标准EXE程序，按下图设计：

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.Filename

End Sub

Private Sub Command2_Click()

FileExist (Text1.Text)

Label2.Caption = FileExist(Text1.Text)

If Text1.Text = "" Then

Label2.Caption = "文件名不能为空!"

End If

End Sub

Function FileExist(Filename As String) As Boolean

FileExist = IIf(Dir(Filename) <> "", True, False)

MsgBox Dir(Filename) <> "", True, "结果"

End Function

Private Sub Command3_Click()

Label2.Caption = ""

End Sub

运行，结果如下：

点击“文件”菜单，再点击“生成XXX.exe”，生成EXE文件。