Determinar o tamanho de um arquivo

[dark0]

Determinar o tamanho de um arquivo

Para arquivos, retorna o tamanho, em bytes, do arquivo especificado. Para pastas, retorna o tamanho, em bytes, de todas as subpastas e arquivos contidos na pasta.

O object é sempre um objeto File ou Folder.

O código a seguir ilustra o uso da propriedade Size com um objeto Folder:

Sub ShowFileSize(filespec)

    Dim fs, f, s

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.GetFile(filespec)

    s = UCase(f.Name) & " uses " & f.size & " bytes."

    response.write s

End Sub

Autor: Cyber Walker

Fonte: ASP4DEVELOPERS