0

我有一个目录，其中包含许多文件夹，例如etc..其中包含子目录..其中我有一个包含一些文件folder1,folder2,folder3的文件夹名称"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 中显示它们。

4

3 回答 3

0

我刚刚处理了您的案例，我认为以下代码将适合您的要求。给定的代码将遍历目录并显示文件名（如果它位于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")
于 2013-11-15T11:10:24.780 回答
0 
grid1.DataSource = (From p1 In IO.Directory.GetFiles("C:\Users\desktop\Myfolder\", "*", IO.SearchOption.AllDirectories)
                    Where p1.Contains("\special\"))

grid1.DataBind()
于 2013-11-15T11:13:58.353 回答
0

如果您的 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 中添加更多详细信息，您只需在其中添加越来越columns多的整数the DataGridView1.Rows.Add

于 2013-11-15T10:38:50.693 回答