Три способа узнать размер файла.
Первый способ:
Visual Basic содержит хорошую функцию, которая возвращает размер файла в байтах:
FileLen("C:\filik.txt")
Второй способ:
Если вы хотите узнать размер файла, открытого оператором Open, воспользуйтесь функцией LOF (Len Of File). Функции передается номер открытого файла:
LOF(FileNumber)
Третий способ:
Можно воспользоваться функцией из модуля FSO Examples, в котором содержатся все функции по работе с файловой системой. Его можно скачать в разделе «Исходники».
Function FileSize(File$)
Dim RSO As Object: Set RSO = FSO.GetFile(File)
FileSize = RSO.Size
End Function
Dim RSO As Object: Set RSO = FSO.GetFile(File)
FileSize = RSO.Size
End Function
Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/