从某个目录中筛选文件代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】从某个目录中筛选文件

作者:步帝 / 发布于2015/3/24/ 1519

筛选文件


	Imports System.Collections.Generic

	Public Shared Function GetFiles _
	 (ByVal sourceFolder As String, ByVal filters As String, ByVal searchOption As System.IO.SearchOption) _
	 As List(Of String)
	
	 'Return filters.Split(CChar("|")).SelectMany(F >= System.IO.Directory.GetFiles(sourceFolder, F, searchOption)).ToArray()
	 Dim arrList As New List(Of String)()
	 Dim arrTmp As IList(Of String)
	 Dim arrFilter As String() = filters.Split(CChar("|"))
	
	 For Each f1 In arrFilter
	 arrTmp = System.IO.Directory.GetFiles(sourceFolder, f1, searchOption)
	 For Each f2 In arrTmp
	 arrList.Add(f2)
	 Next
	 Next
	
	
	 Return arrList
	
	 End Function

	

	Dim FileName As String = "WELLMED*RXCHF70CL.TXT.zip|WMCOSMOS*RXCHF70CL.TXT.zip" 'muli items use | to split'

	Dim files As List(Of String) = GetFiles(CopyFTPSource, FileName, IO.SearchOption.TopDirectoryOnly)
	 For Each file As String In files
	 System.IO.File.Copy(CopyFTPSource & System.IO.Path.GetFileName(file), CopySource & System.IO.Path.GetFileName(file), True)
	 System.IO.File.Delete(CopyFTPSource & System.IO.Path.GetFileName(file))
	 Next

试试其它关键字

　筛选文件　

同语言下

可能有用的

步帝贡献的其它代码(12)