从一个文件夹中查找一个文件——递归

最新推荐文章于 2021-09-03 16:59:17 发布

原创最新推荐文章于 2021-09-03 16:59:17 发布 · 907 阅读

0 ·

CC 4.0 BY-SA版权

VB.net 专栏收录该内容

26 篇文章

订阅专栏

本文介绍了一个用于从指定路径获取备份文件的私有函数，该函数通过遍历目录和文件来查找与指定文件名匹配的备份文件，并返回其路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

   Private Function GetBackUpFile(ByVal fileName As String, ByVal backupPath As String) As String
        Try
            Dim flg = False
            Dim fileList = Directory.GetFileSystemEntries(backupPath)

            For Each filePath In fileList
                If Directory.Exists(filePath) Then
                    Dim csvPath As String = GetBackUpFile(fileName, filePath)
                    If csvPath IsNot Nothing Then
                        Return csvPath
                    End If
                Else
                    If Path.GetFileName(filePath) = fileName Then
                        Return filePath
                    End If
                End If
            Next
            Return Nothing
        Catch ex As Exception
            Return Nothing
        End Try
    End Function