Есть файлы по пути 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