tamanho de um arquivo

[xanburzum 169]

A função retorna o tamanho de um arquivo em bytes.

Se arquivo não for encontrado, tamanhoarq retorna NULL.

 

usando:

 

teste = tamanhoarq(pathname)

exemplo:

 

<% = tamanhoarq( server.mappath("/diretorio/arquivo.asp") ) %>

code:

 

<%
Private Function tamanhoarq(byVal pathname)
	Dim objFSO, objFile
	On Error Resume Next
	Set objFSO	= Server.CreateObject("Scripting.FileSystemObject")
	Set objFile	= objFSO.GetFile(pathname)
	If Err Then
		tamanhoarq = Null
	Else
		tamanhoarq = CLng( objFile.Size )
	End If
	Set objFile	= Nothing
	Set objFSO	= Nothing
	On Error GoTo 0
End Function
%>

[augustoclaro 2]

muito bom!

 

parabéns!