VBA: Сравнить размер у файлов с помощью макроса

[Anton]

Есть файлы по пути Path1 Path2.
Имена файлов и расширения одинаковые.
Как можно сравнить размер файлов и вывести разницу в пересчете на байты или килобайты?

[Администратор]

Точно не знаю, как перевести байты в килобайты. В онлайн-переводчиках 1 кб - 1 000 байт.
Но в теории в 1 кб - 1 024 байта.

В байтах

Sub макрос()
   
    Dim FN1 As String, FN2 As String
    Dim sizes(1 To 2) As Double, dif As Double
   
    '1. Полные имена (путь + имя) файлов.
    FN1 = "C:\Users\User\Desktop\Файл1.docx"
    FN2 = "C:\Users\User\Desktop\Файл2.docx"
    '2. Запись размеров файлов в байтах в массив.
    sizes(1) = FileLen(FN1)
    sizes(2) = FileLen(FN2)
    '3. Запись разницы в переменную "dif".
    dif = sizes(1) - sizes(2)
    '4. Вывод результата на монитор.
    MsgBox "Разница: " & dif

End Sub

[свернуть]

В килобайтах

Измените пункт 2:

'2. Запись размеров файлов в килобайтах в массив.
sizes(1) = FileLen(FN1) / 1024
sizes(2) = FileLen(FN2) / 1024

[свернуть]

[Anton]

Большое спасибо!