■No34418に返信(susuさんの記事)
> C#でフォルダ内のファイル容量(サブフォルダ含め)を取得したいと思いますが

Size プロパティで返される値は、必ずしも実際のディスク使用量とは
一致していない点に御注意ください。
（単にファイルサイズの論理合計を返しているのだと思います）
https://www.haruru29.net/blog/storage-allocation-unit-size/



■No34421に返信(susuさんの記事)
>>> long size = -1;
> 念のためlong型をdouble型に変更しようと思います。

FileSystemObject ライブラリにおいては、
Folder オブジェクトの Size プロパティが、
2 GiB を境に戻り値のデータ型が変わるようです。

2147483647 以下の場合、int 型(C#) / Long 型(VBA）の値を返し、
2147483648 以上の場合、double 型(C#) / Double 型(VBA) の値を返しました。



参考までに、整数値を誤差無く保持するために使用できる
C# の数値型と、それぞれの上限値を記しておきます。

1:decimal 型なら『(2 の 96乗) - 1』バイトまで (約 65536 YiB )
2:  ulong 型なら『(2 の 64乗) - 1』バイトまで（約 16 EiB)
3:   long 型なら『(2 の 63乗) - 1』バイトまで（約 8 EiB)
4: double 型なら『(2 の 53乗) - 1』バイトまで（約 8 PiB)
5:   uint 型なら『(2 の 32乗) - 1』バイトまで（約 4 GiB)
6:    int 型なら『(2 の 31乗) - 1』バイトまで（約 2 GiB)
7:  float 型なら『(2 の 24乗) - 1』バイトまで（約 16 MiB)

----
1:decimal 型[128bit] → 79,228,162,514,264,337,593,543,950,335
2:  ulong 型 [64bit] → 18,446,744,073,709,551,615
3:   long 型 [64bit] → 9,223,372,036,854,775,807
4: double 型 [64bit] → 9,007,199,254,740,991
5:   uint 型 [32bit] → 4,294,967,295
6:    int 型 [32bit] → 2,147,483,647
7:  float 型 [32bit] → 16,777,216

■No34391に追記(魔界の仮面弁士の記事)
>>>> ウインドウの一覧を先に取得してそれをプロセスで束ねてく方法は
>>>> 分かるのですが、それだと時間がかかるので
> ウィンドウ数が膨大で列挙が遅いというのであれば、

手元の VB2005 で試してみましたが、数百ミリ秒以内に列挙が完了しており、
言うほど時間がかかるようには思えませんでした。

比較のため、そちらで実装したコードを見せて頂けないでしょうか?


Option Strict On
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.ComponentModel
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As New DataTable()
        dt.Columns.Add("PID", GetType(Integer))
        dt.Columns.Add("ProcessName", GetType(String))
        dt.Columns.Add("HWND", GetType(IntPtr))
        dt.Columns.Add("Title", GetType(String))
        EnumWindows(AddressOf EnumWindowCallBack, dt)
        Me.DataGridView1.DataSource = dt
        Me.DataGridView1.Columns("PID").DefaultCellStyle.Format = "X8"
        Me.DataGridView1.Columns("HWND").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub

    Private Function EnumWindowCallBack(ByVal hWnd As IntPtr, ByVal lparam As DataTable) As Boolean
        If GetWindow(hWnd) = IntPtr.Zero AndAlso IsWindowVisible(hWnd) Then
            Dim processId As Integer
            GetWindowThreadProcessId(hWnd, processId)
            Dim procName As String = ""
            Try
                'procName = Process.GetProcessById(processId).ProcessName
            Catch
            End Try
            Dim Title As String = ""
            'Dim textLen As Integer = GetWindowTextLength(hWnd)
            'If textLen > 0 Then
            '    Dim tsb As New StringBuilder(textLen + 1)
            '    GetWindowText(hWnd, tsb, tsb.Capacity)
            '    Title = tsb.ToString(0, textLen)
            'End If
            lparam.Rows.Add(processId, procName, hWnd, Title)
        End If
        Return True
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Unicode, EntryPoint:="GetWindowTextW", SetLastError:=True)> _
    Private Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpString As StringBuilder, ByVal nMaxCount As Integer) As Integer
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Unicode, EntryPoint:="GetWindowTextLengthW", SetLastError:=True)> _
    Private Shared Function GetWindowTextLength(ByVal hWnd As IntPtr) As Integer
    End Function
    Private Delegate Function EnumWindowsDelegate(ByVal hWnd As IntPtr, ByVal lparam As DataTable) As Boolean
    <DllImport("user32.dll")> _
    Private Shared Function EnumWindows(ByVal lpEnumFunc As EnumWindowsDelegate, ByVal lparam As DataTable) As Boolean
    End Function
    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
    End Function
    Private Const GW_OWNER As Integer = 4
    <DllImport("user32.dll")> _
    Private Shared Function GetWindow(ByVal hWnd As IntPtr, Optional ByVal uCmd As Integer = GW_OWNER) As IntPtr
    End Function
    <DllImport("user32.dll")> _
    Private Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
    End Function
End Class