使用 vb.net 从子目录获取文件

Question

我有一个目录，其中包含许多文件夹，例如文件夹 1 folder1,folder2,folder3文件夹 3 等。其中包含子目录。我有一个文件夹名称"special" ，其中包含一些文件

现在我想根据子目录的名称获取所有这些文件

例子：

C:\Users\desktop\Myfolder\folder1\special\
C:\Users\desktop\Myfolder\folder2\special\
C:\Users\desktop\Myfolder\folder3\special\
C:\Users\desktop\Myfolder\folder4\special\

现在我需要从所有文件夹 1、文件夹 2、文件夹 3 和文件夹 4 的每个特殊文件夹中获取所有文件，并在 gridview 中显示它们。

Answer 1

如果您的 datagridview 是 datagridview1 并且 countains 两列并且您想添加名称文件并且最后修改这里是解决方案..

    For Each sDir In Directory.GetDirectories("C:\Users\desktop\Myfolder\", "special", SearchOption.AllDirectories)
        For Each File In Directory.GetFiles(sDir)
            Dim detailedfile As New IO.FileInfo(File)
            DataGridView1.Rows.Add(detailedfile.Name, detailedfile.LastAccessTime)
        Next

下一个

如果您想在 gridview 中添加更多详细信息，您只需在the DataGridView1.Rows.Add中添加更多columns和更多整数

Answer 2

我刚刚处理了您的案例，我认为以下代码将适合您的要求。 给定的代码将遍历目录并显示文件名（如果它位于special目录下）。 如果我错误地回答了您的问题，请回复我。

步骤，

Private Sub GetFiles(ByVal xPath As String)

        Try

            If Directory.GetDirectories(xPath).Length > 0 Then
                For Each xDir As String In Directory.GetDirectories(xPath)
                    If Directory.Exists(xDir) Then
                        GetFiles(xDir)
                    End If
                Next
            End If

            If Directory.GetFiles(xPath).Length > 0 Then
                For Each xDir As String In Directory.GetFiles(xPath)
                    If UCase(Path.GetDirectoryName(xDir)).EndsWith("SPECIAL") Then
                        MsgBox(Path.GetFileName(xDir))
                    End If
                Next
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

和电话，

 call GetFiles("D:\test")

Answer 3

grid1.DataSource = (From p1 In IO.Directory.GetFiles("C:\Users\desktop\Myfolder\", "*", IO.SearchOption.AllDirectories)
                    Where p1.Contains("\special\"))

grid1.DataBind()