vb.net文件筛选器 vbs筛选excel

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

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 '这里一定要注意扩展名的大小写，如aviAVI的

Me.ListBox1.Items.Add(ws)

End If

Next

End Sub

相关问答

Q1: VB.NET遍历查找某个文件夹，并找出指定文件

解压密码vb.net文件筛选器：1299

假设路径为C:\abc

代码：

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc")

        Dim FileSize As Long, FileName As String = Nothing

        Dim oFileSize As Long

        For Each File As String In Files

            oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length

            If oFileSize  FileSize Then

                FileSize = oFileSize

                FileName = File

            End If

        Next

        Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName))

        ListN.SubItems.Add(oFileSize  " byte")

        ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension  " 文件")

        ListN.SubItems.Add(FileName)

        ListView1.Items.Add(ListN)

    End Sub

End Class

详见源代码vb.net文件筛选器！vb.net文件筛选器！

Q2: vb.net关键字搜索文件

窗体上添加一个文本框vb.net文件筛选器，一个列表框vb.net文件筛选器，一个按钮vb.net文件筛选器：

代码如下vb.net文件筛选器：

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

Dim MyDir As String = "C:\123"

Dim MyFilter As String = "*" TextBox1.Text "*"

ListBox1.Items.Clear()

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

ListBox1.Items.Add(MyFile)

Next

End Sub

Q3: VB.NET中，文件对话框（OpenFileDialog）显示某种设定的文件类型需要修改什么属性？

Filter 属性设置当前文件名筛选字符串，该字符串确定出现在对话框的“文件类型”框中的选项。

openFileDialog1.InitialDirectory = "c:\\" ;

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;

openFileDialog1.FilterIndex = 1 ; // 获取或设置文件对话框中当前选定筛选器的索引；

openFileDialog1.RestoreDirectory = true ;

对于每个筛选选项，筛选器字符串都包含筛选器说明，后接一垂直线条 (|) 和筛选器模式。不同筛选选项的字符串由垂直线条隔开。

Q4: VB.net怎么弹出文件夹路径选择框

选择文件夹  在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中

然后 代码写在  按钮事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text =FolderBrowserDialog1.SelectedPath

选择文件 在工具箱 - 对话框 里选择 OpenFileDialog

把 OpenFileDialog1.ShowDialog()

TextBox1.Text = OpenFileDialog1.FileName

写到按钮事件下

如图

点击按钮会弹出 通用对话框  选择好路径后 确定 vb.net文件筛选器，编辑框里就会显示选择vb.net文件筛选器的路径

Q5: vb的CommonDialog1.filter用法作用不是很理解，语法怎么写，比如想浏览e：/123.jpg咋搞？

Filter 指的是文件筛选器，也就是让文件列表中只显示某一类型的文件。

比如想只显示 TXT 文本文件，那么就是：

CommonDialog1.Filter = "文本文件(*.txt)|*.txt"

如果想像下图这个样子有多个类型可以选择：

CommonDialog1.Filter = "位图文件(*.txt;*.dib)|*.txt;*.dib|JPEG(*.jpg;*.jpeg;*.jpe;*.jfif)|jpg;*.jpeg;*.jpe;*.jfif|GIF(*.gif)|*.gif|所有文件|*.*"

vb.net文件筛选器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs筛选excel、vb.net文件筛选器的信息别忘了在本站进行查找喔。