Назад

Получение размера заданного файла на веб-сервере
http://www.relib.com

Получение размера заданного файла на веб-сервере при помощи Scripting.FileSystemObject. Данный пример выводит размер файла в байтах. Для вывода в килобайтах можно использовать функцию FormatNumber(iFileSize\1000, 0).

'Путь к файлу на сервере
Dim strFileName
strFileName = "C:\FooBar\blah.txt"

'Создаем FileSystemObject
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Создаем объкт файл
Dim objFile
Set objFile = objFSO.GetFile(strFileName)

'Получаем размер файла
Dim iFileSize
iFileSize = objFile.Size

Назад