vb.net 如何用通配符查找文件

步骤如下：

窗体上添加2个列表锋晌框，一燃基轮个按钮：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyDir As String = "C:\123"

'搜索并显示子皮信文件夹

ListBox1.Items.Clear()

For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)

ListBox1.Items.Add(MySubDir)

Next

'搜索并显示文件

ListBox2.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)

ListBox2.Items.Add(MyFile)

Next

End Sub

End Class

在这里需要举一个例子好能清楚的了解在VB中怎么查找文件，如下：

假设要找的文件是TextBox 叫 TextBox1，那么可以老山厅在VB中这样写：

dim FileName, Path as string

Path = "D:\123\"

FileName = Path &TextBox1.Text &".xlsx" (后面根据文唯带件的扩展名更改即可）

Workbooks.Open filename:=FileName

VB全称是Visual Basic，是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者侍隐轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

VB中可用Dir函数查找文件是否存在。

Dir 函数，返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。

Dir 函数示例：

本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh

计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac

中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。

Private Sub Form_Click()

    Dim MyFile, MyPath, MyName

    ' 返回“WIN.INI” （如果该文件存在）。

    MyFile = Dir("C:\WINDOWS\WIN.ini")

    ' 没缺返回带指定扩展名的文件名。如腔禅果超过一个 *.ini 文件存在，

    ' 函数将返回按条件第一个找到的文件名。

    MyFile = Dir("C:\WINDOWS\*.ini")

    ' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。

    MyFile = Dir

    ' 返回找到的第一个隐式 *.TXT 文件。

    MyFile = Dir("*.TXT", vbHidden)

    ' 显示 C:\ 目录下的名称。

    MyPath = "c:\"   ' 指定路径。

    MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。

    Do While MyName <> ""   ' 开始循环。

       ' 跳过当前的目录及上层目录。

       If MyName <> "." And MyName <> ".." Then

          ' 使用位比较来确定 MyName 代表一目录。

          If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

             Debug.Print MyName   ' 如果它是一个目录，将其枯圆辩名称显示出来。

          End If

       End If

       MyName = Dir   ' 查找下一个目录。

    Loop

End Sub

以下是在D盘根目录下查找zhang2012.xls是否存在的代码：

Private Sub Command1_Click()

    Dim fl

    If Dir("D:\zhang2012.xls") <> "" Then

        Print "文件存在"

    Else

        Print "文件不存在"

    End If

End Sub

---