Question

目前它正确编译但当我运行时打开它并单击按钮它将所有文件从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

Answer 1

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

网上有很多例子可以在c＃和vb.net中显示递归文件和目录列表。

免责声明：我已经从Dot Net Perls网站documentation on MSDN复制了此代码，而不仅仅是链接到代码（如果链接已经死亡）。

recurses目录的程序：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

无法列出子目录

1 个答案: