189 8069 5689

vb点虐 文件过滤 vb过滤输入数据显示字母

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

vb通用对话框过滤 文件类型

通过使用CommonDialog 控件的Filter 属性来过滤。

可以设置它的Filter 属性,这样对话就只显示某种文件类型,如文本文件。

Filter 属性(公共对话框),返回或设置在对话框的类型列表框中所显示的过滤器。

CommonDialog

控件(“打开”、“另存为”对话框)示例

下例显示“打开”对话框只能选文本文件,然后在信息框中显示所选文本文件的文件名:

Private Sub Command1_Click()

' 设置“CancelError”为 True

CommonDialog1.CancelError = True

On Error GoTo ErrHandler

' 设置标志

CommonDialog1.Flags = cdlOFNHideReadOnly

' 设置过滤器

'    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files"  _

'    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

CommonDialog1.Filter = "Text Files"  "(*.txt)|*.txt|" '本行代码设置只显示文本文件的过滤器

' 指定缺省的过滤器

CommonDialog1.FilterIndex = 2

' 显示“打开”对话框

CommonDialog1.ShowOpen

' 显示选定文件的名字

MsgBox CommonDialog1.FileName

Exit Sub

ErrHandler:

' 用户按了“取消”按钮

Exit Sub

End Sub

VB.NET如何按照文件名称过滤出最后写入的3个文件(文件的名称为Record_Up_20110628 AM 072246.dat)?

文件名中不是有日期时间吗?

跟你的系统时间一对比 就知道谁最后写入的了


本文题目:vb点虐 文件过滤 vb过滤输入数据显示字母
URL网址:http://jkwzsj.com/article/ddjdcge.html

其他资讯