3

目前它编译正确，但是当我运行打开它并单击按钮时，它会将所有文件从 C:\ 添加到 CheckedListBox1 但然后停止...

Imports System.IO

Public Class Form1
    Public Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles GetProfiles_Button.Click
        Dim rootObject As String() = Directory.GetFiles("C:\")
        For Each subObject As String In rootObject
            searchObject(subObject)
        Next
    End Sub

    Public Shared Sub searchObject(targetObject As String)
        If File.GetAttributes(targetObject) = FileAttributes.Directory Then
            Form1.CheckedListBox2.Items.Add(targetObject)
            Dim subRoot As String() = Directory.GetFiles(targetObject)
            For Each subRootObject As String In subRoot
                searchObject(subRootObject)
            Next
        Else
            Form1.CheckedListBox1.Items.Add(targetObject)
        End If
    End Sub

End Class
4

1 回答 1

6

您正在使用该Directory.GetFiles功能。根据MSDN 上的文档，这只会返回文件。您对FileAttributes.Directory枚举的检查将始终返回 false。

网上有很多例子展示了 c# 和 vb.net 中的递归文件和目录列表。

免责声明：我从此处的 Dot Net Perls 网站复制了此代码，而不仅仅是链接到代码（以防链接失效）。

递归目录的程序：VB.NET

Imports System.IO

''' <summary>
''' This class contains directory helper method(s).
''' </summary>
Public Class FileHelper

    ''' <summary>
    ''' This method starts at the specified directory, and traverses all subdirectories.
    ''' It returns a List of those directories.
    ''' </summary>
    Public Shared Function GetFilesRecursive(ByVal initial As String) As List(Of String)
    ' This list stores the results.
    Dim result As New List(Of String)

    ' This stack stores the directories to process.
    Dim stack As New Stack(Of String)

    ' Add the initial directory
    stack.Push(initial)

    ' Continue processing for each stacked directory
    Do While (stack.Count > 0)
        ' Get top directory string
        Dim dir As String = stack.Pop
        Try
        ' Add all immediate file paths
        result.AddRange(Directory.GetFiles(dir, "*.*"))

        ' Loop through all subdirectories and add them to the stack.
        Dim directoryName As String
        For Each directoryName In Directory.GetDirectories(dir)
            stack.Push(directoryName)
        Next

        Catch ex As Exception
        End Try
    Loop

    ' Return the list
    Return result
    End Function

End Class

Module Module1

    ''' <summary>
    ''' Entry point that shows usage of recursive directory function.
    ''' </summary>
    Sub Main()
    ' Get recursive List of all files starting in this directory.
    Dim list As List(Of String) = FileHelper.GetFilesRecursive("C:\Users\Sam\Documents\Perls")

    ' Loop through and display each path.
    For Each path In list
        Console.WriteLine(path)
    Next

    ' Write total number of paths found.
    Console.WriteLine(list.Count)
    End Sub

End Module
于 2013-04-27T05:56:50.053 回答