Pegar tamanho dos arquivos em outros servidores

[Patrique 0]

Fala ae galera, ae vai minha contribuição, o code abaixo serve para você pegar a informação do tamanho do arquivo em sites externos, pode pegar img, rar, zip, videos ou seja tudo, abaixo esta o code.

 

<%
Function ArquivoRemoto(UrlArquivo)
    Dim monta,calculo(1),arquivo
    Set monta = CreateObject("MSXML2.XMLHTTP")
    monta.Open "GET",urlarquivo, False
    monta.setRequestHeader "Range","bytes=-1"
    monta.send
    arquivo = Split(monta.GetResponseHeader("Content-Range") & "/0","/")
    Set monta = Nothing
    calculo(0) = CLng(arquivo(1))
    calculo(1) = calculo(0) / 1024
    If calculo(1) > 1024 Then
        calculo(1) = Round(calculo(1) / 1024,2) & "MB"
    Else
        calculo(1) = Round(calculo(1),2) & "KB"
    End If
    ArquivoRemoto = calculo
End Function

Dim urlarquivo,calculotamanho
urlarquivo = "http://forum.imasters.com.br/public/style_images/imasters2010/logo.png"
calculotamanho = ArquivoRemoto(UrlArquivo)
Response.Write "O tamanho deste arquivo é <strong>"& calculotamanho(1)&"</strong>"
%>

[desisto 0]

o bom e velho Pat :)

 

sumido heim

 

 

 

 

so uma pergunta, se a função retorna w=300 (exemplo), isso quer dizer que existe

 

e pro caso de imagem queimada, qual o retorno?

[Patrique 0]

O retorno será 0KB mesmo que o arquivo não exista.

 

Esse é apenas um exemplo simples, mais da para adaptar e criar outras functions se baseando nesta, para o meu caso eu utilizei apenas para verificar tamanho de imgs e por isso o sistema computa até MB e KB caso queira que ele verifica arquivos acima de 1 GB tem que fazer uma inserção.

 

[]'s

[desisto 0]

entendi

 

valeu