从某个目录中筛选文件

最新推荐文章于 2024-04-28 12:15:45 发布

原创最新推荐文章于 2024-04-28 12:15:45 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

Winform (C#) 同时被 2 个专栏收录

215 篇文章

订阅专栏

VB.NET

31 篇文章

订阅专栏

本文提供了一个使用C#和VB.NET在指定目录及其子目录中搜索特定类型文件（如.txt和.csv）的示例代码。通过将搜索到的文件路径添加到列表中，可以方便地进行后续操作，例如文件复制和删除等。

C# DEMO:

 string[] files1 = Directory.GetFiles(sSourceFolder, "*.txt", SearchOption.AllDirectories);
           string[] files2 = Directory.GetFiles(sSourceFolder, "*.csv", SearchOption.AllDirectories);
           
           List<string> lstFiles = new List<string>();
           lstFiles.AddRange(files1);
           lstFiles.AddRange(files2);

VB.NET:

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