(Resolvido) Contador de Arquivos

[Rodrigo Pensky]

URGENTE: Olá galera preciso urgente de um código em asp que faz contagem de arquivos dentro de uma pasta no servidor:

Exemplo:

Pasta (Fotos) 15 Arquivos

Pasta (Musicas) 5 Arquviso

Por favor me ajudem, preciso disso para um trabalho da escola, desde já agradeço! :blush:

[jow]

Cara o q você tem pronto posta ai ....

[Rodrigo Pensky]

Então amigo eu só tenho um código que visualiza os arquivos só que ele não soma a quantidade de arquivos na pasta determinada...

<%
'Declara as variáveis a serem usadas
Dim Local, Folder, File, ObjFS, objRootFolder 
'Especifica o endereço do conteúdo a ser exibido
Local = "d:\web\localuser\photoprintdigital\www\profissional\joao\10x15\fotos\"

'Cria o objeto FileSystemObject
Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = ObjFS.GetFolder(Local)

Response.Write "<table border='1' bordercolor='#000000' cellpadding=2 cellspacing=0 width='100%' style='font-family: Tahoma, Arial; font-size: 11px;'>"
Response.Write " <tr style='background: #679FDB'>"
Response.Write " <td><b>Nome</b></td>"
Response.Write " <td><b>Tipo</b></td>"
Response.Write " <td><b>Tamanho em bytes</b></td>"
Response.Write " <td><b>Data e horário de envio</b></td>"
Response.Write " </tr>"

'Exibe pastas encontradas
For Each Folder in objFolder.Subfolders
Response.Write " <tr>"
Response.Write " <td>" & Folder.Name & "</td>"
Response.Write " <td>" & Folder.Type & "</td>"
Response.Write " <td align=right>" & Folder.Size & "  </td>"
Response.Write " <td>" & Folder.DateLastModified & "</td>"
Response.Write " </tr>"
Next

'Exibe arquivos encontrados
For Each File in objFolder.files
Response.Write " <tr>"
Response.Write " <td>" & File.Name & "</td>"
Response.Write " <td>" & File.Type & "</td>"
Response.Write " <td align=right>" & File.Size & "  </td>"
Response.Write " <td>" & File.DateLastModified & "</td>"
Response.Write " </tr>"
Next

Response.Write "</table>"

'Elimina variáveis da memória 
Set Local = Nothing
Set File = Nothing
Set objFolder = Nothing
Set Folder = Nothing
%>

[Jonathan Queiroz]

Então é só você criar uma variável para armazenar a quantidade de arquivos e incrementar a cada arquivo que você acha

'Exibe arquivos encontrados
quantidade_arquivos=0
For Each File in objFolder.files
Response.Write " <tr>"
Response.Write " <td>" & File.Name & "</td>"
Response.Write " <td>" & File.Type & "</td>"
Response.Write " <td align=right>" & File.Size & "  </td>"
Response.Write " <td>" & File.DateLastModified & "</td>"
Response.Write " </tr>"
quantidade_arquivos=quantidade+arquivos+1
Next
response.write("Existem " & quantidade_arquivos & " arquivos nessa pasta")

[Rodrigo Pensky]

Será que tem algo errado??? porque quando coloco mais que um arquivo ele continua mostrando que só tem 1 :

Existem 1 arquivos nessa pasta

porque será?

Editado Fevereiro 20, 2009 por Rodrigo Pensky

[Jonathan Queiroz]

Olha isso:

quantidade_arquivos=quantidade+arquivos+1

O certo seria:

uantidade_arquivos=quantidade_arquivos+1

Vacilo mesmo !

É isso que dá fazer com pressa hehe !

[Rodrigo Pensky]

Agora simmmmm muito obrigadoooo amigooo, você num sabe o quanto já procurei esse códigooo

agora sim consegui resolver meu problema, cara valeu mesmo, abraços fica com Deus! :rolleyes:

[Jonathan Queiroz]

Rodrigo me enviou uma MP com uma dúvida relacionada a esse código

Resolvi postar aqui, a fim de deixar a solução visível a outros membros com o mesmo problema !

Oi amigo, aquele código la que você me mandou deu certinho, era td que eu precisava, agora só tenho uma duvida basica, naquele código la da pra especificar o tipo de arquivo que queira somar...

Exemplo...la ele conta todos os aquivos que esta na pasta!

Da para especificar o formato que eu queira?

Ex. eu quero que ele só conte os arquivos JPG da?

Desde já agradeço! Abraços

Nesse caso você poderá verificar a extensão do arquivo antes de incrementar o contador !

Mais informações sobre como verificar a extensão de um arquivo aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=132994

Seu código ficaria assim:

function pega_extensao(arquivo)
pega_extensao=mid(arquivo,instr(1,arquivo,".",1),len(arquivo))
end function

'Exibe arquivos encontrados
quantidade_arquivos=0
'Cria o array com as extensões de arquivo
Dim entensao_arquivo(4) 'Lembre-se de que o array inicia em zero
extensao_arquivo(0)="jpg"
extensao_arquivo(1)="gif"
extensao_arquivo(2)="bmp"
extensao_arquivo(3)="asp"
extensao_arquivo(4)="aspx"

For Each File in objFolder.files
Response.Write " <tr>"
Response.Write " <td>" & File.Name & "</td>"
Response.Write " <td>" & File.Type & "</td>"
Response.Write " <td align=right>" & File.Size & "  </td>"
Response.Write " <td>" & File.DateLastModified & "</td>"
Response.Write " </tr>"
for i=0 to ubound(extensao_arquivo)
if (pega_extensao(File.Name)=extensao_arquivo(i))
quantidade_arquivos=quantidade_arquivos+1
i=ubound(extensao_arquivo)
Next
Next
response.write("Existem " & quantidade_arquivos & " arquivos nessa pasta")

[Rodrigo Pensky]

Olá boa tarde, muito obrigado pelo codigo, mas me diz uma coisa, como é que eu faço para esse código acima funcionar?

tentei incrementar ele no servidor mas não funcionou?

Desde já agradeço!