Получение размера файла

[panchos]

Надо получить размер файла. При выводе результата размер файла получается отрицательным. Как исправить эту ошибку???

Код: Выделить всё

Directory = "\\SRV\SYSTEM\backup\v8\"
i = 15

retail = Dir(Directory & "retail_new", 7)

Sheets("Базы").Cells(i, 3) = FileDateTime(Directory & retail)
Sheets("Базы").Cells(i, 4) = FileDateTime(Directory & retail)
Sheets("Базы").Cells(i, 5) = FileLen(Directory & retail)

Как получить размер файла в мегабайтах???

[Viper]

FileLen возвращает размер файла в байтах (и вряд ли это будет отрицательное число), для получения размера в мегабайтах надо полученно число дважды разделить на 1024 (или один раз на 1048576).

[panchos]

А есди же все таки получается отрицательное число, что тогда делать???

[alibek]

Поменять знак и прибавить 2147483648.
Но это полумеры. Лучше использовать WinAPI GetFileSizeEx и тип данных Currency.