在VB .NET中计算目录大小的最佳方法是什么？

Imports System.IO

Public Class DirectorySizeCalculator
    Private Shared Function GetDirectorySize(directoryPath As String) As Long
        Dim totalSize As Long = 0

        ' 获取目录中的所有文件
        Dim files As String() = Directory.GetFiles(directoryPath)

        ' 遍历文件并累加文件大小
        For Each file As String In files
            Dim fileInfo As New FileInfo(file)
            totalSize += fileInfo.Length
        Next

        ' 获取目录中的所有子目录
        Dim subDirectories As String() = Directory.GetDirectories(directoryPath)

        ' 递归遍历子目录并累加文件大小
        For Each subDirectory As String In subDirectories
            totalSize += GetDirectorySize(subDirectory)
        Next

        Return totalSize
    End Function

    Public Shared Sub Main()
        Dim directoryPath As String = "C:\Path\To\Directory"
        Dim directorySize As Long = GetDirectorySize(directoryPath)

        Console.WriteLine("目录大小: " & directorySize & " 字节")
    End Sub
End Class