Question

VB.NET 筛选指定目录下的指定文件（扩展名）

VB.NET 筛选指定目录下的指定文件

vb.net
dim a as string
a="c:\windows\system"
筛选a目录下的*.mp4;*.avi;*.flv 格式的文件
并且列表在listbox1中

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "c:\windows\system"
For Each ws In My.Computer.FileSystem.GetFiles(a)
Dim kzm As String = ws.Substring(InStrRev(ws, "."), ws.Length - InStrRev(ws, ".")) '定义扩展名变量
If kzm = "mp4" Or kzm = "avi" Or kzm = "flv" Then '这里一定要注意扩展名的大小写，如avi<>AVI的
Me.ListBox1.Items.Add(ws)
End If
Next
End Sub

Answer 2

用filelistbox1
设置File1.Pattern =" *.mp4;*.avi;*.flv "就可以了

追问

vb.net 不是 vb6

Answer 3

c对