分享FindFile函数.txt - 源码 - 源码 - 免费下载

分享FindFile函数.txt

文件大小： 1k

源码售价： 10 个金币积分规则积分充值

资源说明：这个findFile函数功能强大，完整。 Imports System.Collections.Generic Imports System.IO Friend Class FindFiles Public Shared GRAPHIC_FILES As String() = New String() {"*.bmp", "*.jpg", "*.jpeg", "*.jpe", "*.jfif", "*.tif", _ "*.tiff", "*.png", "*.gif", "*.wmf", "*.emf", "*.pdf"} Public Shared Function Find(path As String, masks As String()) As String() Dim result As New List(Of String)() For Each mask As String In masks Dim filenames As String() = Directory.GetFiles(path, mask) For Each filename As String In filenames Dim lowerFilename As String = filename.ToLower() If Not result.Contains(lowerFilename) Then result.Add(lowerFilename) End If Next Next result.Sort() Return result.ToArray() End Function End Class

部分文件列表（点击文件名可查看文件内容）

					
									本源码包内暂不包含可直接显示的源代码文件，请下载源码包。