ASP - Contar aquivos de uma pasta

[p-sergio 0]

Mais uma ajudinha pessoal, por favor.Preciso recuperar o número de arquivos de dentro de uma determinada pasta, imagino que consiga usando algum objeto do FileSystemObject mas não sei qual e nem qual é a sintaxe para fazer isso, será que alguém poderia me dizer.Faleu!!!

[thiagocs 0]

<%'***************** FileSet fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder(Server.Mappath("\"))Set files = folder.Filesresponse.write "<h3>The number of files in this folder: " & files.count & "</h3>"response.write "<u>File List:</u><br />"For Each file in FilesResponse.Write file.Name & "<br />"NextSet folder = NothingSet files = NothingSet fso = Nothing%>

[p-sergio 0]

Valeu Thiago !!!

[<%Rafael%> 0]

hehe entrei no fórum para postar a msm dúvida.. mas com algumas modificações..

Ai vai:

 

Preciso contar quantos resgistros há na tabela de um bd, porém, apenas os dados cujo nível é 1...

 

Por exemplo, na tabela do bd, tem os campos login, senha, email e nivel...

 

nivel 1 é usuarios, nivel 2 é admins.. gostaria de contar quantos usuários estão cadastrados no banco, fazendo com que apareça escrito a mensagem:

 

No momento, há 37 usuários cadastrados no site!

 

Sendo que esse número recolhesse da tabela quantos logins há cadastrados sendo eles do nível 1...

 

COMO FAZER?? hehe!!!

 

Abraços!!!

[Salgado 4]

Na sua SQL: "Select Count(ID) As Total From tabela Where nivel = 1;" o valor estará em RecordSet("Total")

[<%Rafael%> 0]

ta certo...então eu não preciso do código acima, é só colocar essa contagem no SQL???E no código acima, eu não vi o nome da tabela onde estaria sendo contado o nº de registros...?!!?Abraços!

[Salgado 4]

ta certo...

então eu não preciso do código acima, é só colocar essa contagem no SQL???

 

E no código acima, eu não vi o nome da tabela onde estaria sendo contado o nº de registros...?!!?

Abraços!

você quer dizer no código que o thiagocs passou?

 

Aquele código é para contar os arquivos em uma pasta, e não tem nada de BD nela!

[<%Rafael%> 0]

Tá certo... desculpe eu confundi pasta com tabelas hehe...Abraços!!!

[<%Rafael%> 0]

Ahhh não deu certo...

 

Bom, dexa eu colocar códigos, talvez fique mais fácil...

 

ai vai...

tem a página index_adm.asp, onde quero que conte o número de registros numa tabela (usuarios) no banco de dados...

 

<!--#include file="restrito.asp"-->

<!--#include file="conectar.asp"-->

<% If Session("nivel") = "1" Then %>

<br><br><!--#include file="restringir.asp"-->

<% Else %>

<br><center><!--#include file="menu_adm.asp"--></center><br><br>

<hr width="600" size="1" color="#C0C0C0" align="center"><br>

<table width="600" cellpadding="0" cellspacing="0" border="0" class="fixo" align="center">

<tr>

  <td align="left"><b>Estatísticas:</b><br><br>

    - Usuários Cadastrados: XXX Usuários <a href="index_adm.asp?mostra=1" class="fixo_fine">(Clique aqui para mostrar todos os usuários cadastrados)</a><br>

    - Admins Cadastrados: XXX Admins <a href="index_adm.asp?mostra=2" class="fixo_fine">(Clique aqui para mostrar todos os admins cadastrados)</a></td>

</tr>

</table><br>

<hr width="600" size="1" color="#C0C0C0" align="center">

<% var_mostra = request.querystring("mostra")

 

If var_mostra = "" Then

Response.Write " "

 

Else if var_mostra = "1" Then

Response.Write "Listando usuários cadastrados:" %>

<% AbreConexao

   SQL = "SELECT * FROM usuarios WHERE nivel=1 ORDER BY login ASC"

   Set rs = Conexao.Execute(SQL)

   While not rs.EOF %>

     <a href="alterar_dados_adm.asp?id=<%=rs("idlogin")%>" class="altuser"> - <%=Rs("login")%></a> <font class="fixo_fine">(<%=RS("filho1")%> / <%=RS("filho2")%> / <%=RS("filho3")%>)</font><br>

   <% rs.MoveNext

   Wend

   rs.close

   FechaConexao

   Set rs = nothing %>

<% Else

Response.Write "Listando admins cadastrados:"

%>

<% AbreConexao

   SQL = "SELECT * FROM usuarios WHERE nivel=2 ORDER BY login ASC"

   Set rs = Conexao.Execute(SQL)

   While not rs.EOF %>

     <a href="mostrar_dados.asp?id=<%=rs("idlogin")%>" class="altuser">- <%=RS("login")%></a><br>

   <% rs.MoveNext

   Wend

   rs.close

   FechaConexao

   Set rs = nothing %>

   <% End If

   End If %>

<br><br>

</b></font>

<!--#include file="barra_cop.asp"-->

</body>

</html>

<% End If %>

As partes em negrito (XXX) é onde quero que apareça o número de usuários cadastrados...

 

Aguardo helps... hehe :D ...

 

Abraços!!!

[<%Rafael%> 0]

É vou precisar msm da ajuda de vcs hehehe...eu tentei fazer utilizando umas dicas mas não deu ( :( Abguardo ajudas,,, please hehehe...falow!!!

[p-sergio 0]

No lugar XXX coloque <%=rs.count%> deve funcionar.