Fso

[renatacm]

Olá, pessoal!

Tudo bem?

Estou tentando verificar a existência de qualquer arquivo .pdf num determinado diretório.

Caminho_AtasEx	= Server.MapPath("condominios\"& SESSION("parte1") &"\Atas\Extraordinarias\*.pdf")

IF (Fso.FileExists(Caminho_AtasEx) = TRUE) THEN
 ...instruções
END IF

Tá retornando o seguinte erro:

Tipo de erro:

Server.MapPath(), ASP 0173 (0x80004005)

Um caractere inválido foi especificado no parâmetro Path do método MapPath.

/romacon/login.asp, line 7

A linha 7 é a do Caminho...

Sei que tem coisa errada, mas... o que é?

Bjocas...

;oÞ

[mariofdf]

Voltamos a atividade... Para ajudar uma dama...

Em, este modo que você usou não vai rolar, tipo, você não pode usar o * como se fosse para ser qualquer coisa, não no caminho, no caso você teria que fazer um loop para verificar a existencia dos arquivos.

você quer saber o que na verdade?

A quantia, os nomes?

seje mais especifica...

[renatacm]

É o seguinte:

Na pasta pode haver: nenhum ou vários arquivos.

O que sei com certeza é q serão listados apenas os .pdf...

Quero primeiro de tufo verificar se existe algum arquivo na pasta

IF Existe = TRUE THEN

Lista todos os arquivos (vou fazer um link para cada um deles)

ELSE

Não faz nada

END IF

Entendeu?

Desde já, grata!

;oÞ

[Graymalkin]

Use o método GetFolder() para obter uma coleção de todos os arquivos de uma pasta. Depois é só fazer um For Each... Next para correr a lista e fazer o que quiser com eles. Um exemplo:

[renatacm]

Legal, Graymalkin...

Pra "manipular" os arquivos não tenho problemas...

A questão é que antes de começar a listas os arquivos quero verificar se existe algum arquivo .pdf dentro da pasta...

IF existe = TRUE THEN

Lista arquivos (entra o For... Each... Next...)

ELSEIF existe = FALSE

Não lista nada (ou emite mensagem avisando q não existe nenhum arquivo)

END IF

Minha dúvida está em fazer a verificação d existência de pelo menos 1 arquivo .PDF ....

OBS: O nome dos arquivos não será fixo.

Ex: 20041005.PDF (aaaammdd.PDF)

Não sei como fazer....

[]'s

;oÞ

[Graymalkin]

Verifique isso com o For Each... Next, exemplo:

[renatacm]

Bingo!!!

Acho q é isso...

Vou codificar e depois posto a resposta, beleza?!?

Brigadinha!!!

[renatacm]

estou fazendo assim:

Editado Abril 23, 2005 por bareta

[bareta]

esperimente

[renatacm]

      	<% For Each atasor In FolderAtasOr.Files
      	if lcase(right(atasor.name,4))=".pdf" then%>
      	<tr>
      	<td>&nbsp;</td>
      	<td>&nbsp;</td>
      	<td><a href="condominios/<%=SESSION("parte1")%>/Atas/Ordinarias/<%=atasor.name%>" target="_blank">De: <%=mid(atasor.name,7,2)%>/<%=mid(atasor.name,5,2)%>/<%=left(atasor.name,4)%></a></td>
      	</tr>
      	<%else%> 
      	<tr>
      	<td>&nbsp;</td>
      	<td>&nbsp;</td>
      	<td class="txt_menudestaque">N&atilde;o dispon&iacute;vel</td>
      	</tr>
      	<%exit for
      	end if
      	next%>

Ficou assim e funcionou...

Só fica em "loop" quando executo no localhost: alguém sabe me dizer porque?

Estou usando o IIS do XP SP2...

Outra coisa: Mesmo quando não existe o arquivo .pdf ele não mosta a msg "Não disponível"...

;oÞ

[bareta]

por um acaso seu antivirus tem bloqueio de scripts....????

se tiver desative o bloqueio de scripts.... e rode o script

[renatacm]

Na boa, não sei o q pode ser, pois isso só acontece quando rodo os scripts de uma única aplicação...

Todas as outras q rodo no localhost estão executando normalmente...

Bom, deixa pra lá...

O importante é q a questão sobre FSO já foi resolvida com o auxílio de vocês.

Muito obrigada, pessoal.

Pode fechar o tópico.

Bjocas...

;oÞ

[bareta]

ok qualquer coisa pergunta ae