[xanburzum]

Este exemplo de código mostra como recuperar o tamanho de um arquivo, em bytes

CÓDIGO

<%



' declarar variáveis

dim fso, file, ourFile, ourFileSize



' especificar um nome de arquivo

ourFile = "filename.txt"



' Obter o tamanho de arquivo

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set file = fso.GetFile(ourFile)

ourFileSize = file.Size

'Limpar variáveis

Set file = nothing

Set fso = nothing



'OurFileSize  tamanho do arquivo

'De ourFile, em bytes

%>