wOxxOm, так при LongName=0 покажет правильную единицу измерения (Гб - там, где они есть):
Code:
With CreateObject("Shell.Application").NameSpace(CreateObject("Wscript.Shell").CurrentDirectory)
Content = .GetDetailsOf(.ParseName(FileName), 1)
End With
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
