Contando arquivos

[KBR 0]

Olá Pessoal...Como faço para saber quantos arquivos tem dentro de uma determinada pasta???

[hinom 5]

<%qtd = 0dir_raiz = "." 'aqui a pastadiretorio = server.mappath(dir_raiz)Set FSO = Server.CreateObject("Scripting.FileSystemObject")Set PASTA = FSO.Getfolder(diretorio)Set Arquivos = Pasta.FilesFOR EACH arquivo IN arquivos 'response.write arquivo.name qtd = qtd + 1 NEXT%>total: <%=qtd%>

[KBR 0]

Valeu Hinom... funcionou bacana... ;)