Vb.net 标签中的所有子目录和每个子目录的文件计数

如何获得所有子目录的列表以及每个子目录的文件计数

最重要的是，它必须是连续文本的形式，而不是列表框。

我的示例只是打印最后一个目录。我如何才能让它像这样打印它们：

Adobe:45/Adobe Media Player:5/Java:22/等等

  Private Sub GetDir()
    For Each x As String In System.IO.Directory.GetDirectories("C:\ProgramFiles")
        y = x & " : " & CStr(x.Count)
    Next

    Label1.Text = y
  End Sub

我需要它在continuos文本，这样我就可以邮寄它实际上。这就是为什么我不能使用listbox

我必须在“程序文件”中添加一个空格，否则它会爆炸，但+=应该会添加到循环中的字符串中

Private Sub GetDir()

    Dim y As String = ""
    For Each dir As String In System.IO.Directory.GetDirectories("C:\Program Files")

        y += dir & " : " & CStr(dir.Count)

    Next


    Label1.Text = y
End Sub

您可以使用一个对象来构建输出，使用一个对象来轻松获取每个目录的名称和文件数

Dim list As New StringBuilder
For Each directory As String In IO.Directory.GetDirectories("C:\ProgramFiles")
    Dim subDirectory As New IO.DirectoryInfo(directory)
    list.Append(subDirectory.Name & ": " & subDirectory.GetFiles.Length & " / ")
Next
Dim text As String = list.ToString.Remove(list.Length - 3)

y=x&>：“&CStr（x.Count）

将当前目录分配给（字符串？使用选项Strict！），而不是串联：

y&=…