Пример в этой статье описывает метод получения размера файла в VB. Поделитесь этим со всеми для справки. Конкретный метод реализации заключается в следующем:
<% ' Авторские права (c) 2009, reusablecode.blogspot.com; некоторые права защищены ' ' Эта работа распространяется по лицензии Creative Commons Attribution. Для просмотра ' отправьте письмо по адресу Creative Commons, 559 Nathan Abbott Way, Stanford, California. ' 94305, США. ' Получить размер заданного файла function getFileSize(someFile) dim fs dim file set fs = Server.CreateObject("Scripting.FileSystemObject") set file = fs.GetFile(Server.MapPath(someFile)) getFileSize = FormatFileSize(file.size) set file = ничего set fs = ничего end function ' Форматируем файл с наибольшим размером практические единицы. ' Входные данные: размер в байтах function FormatFileSize(size) dim Units dim Factor units = Array("B", "kB", Коэффициент «МБ», «ГБ», «ТБ», «ПБ», «EB», «ZB», «YB» = log(размер) / 7 FormatFileSize = Round (размер / (1024 ^ коэффициент), 2) & единицы (коэффициент) конечной функции%>Я надеюсь, что эта статья будет полезна всем, кто занимается программированием на VB.