em código

[thicomp 0]

Oi galera, tô com um probleminha neste código, será que alguém poderia me ajudar.

Bom, tenho que verificar a existencia do arquivo nestas duas pastas. O que tá acontecendo é o seguinte, se eu executar este código sem a parte que está em vermelho, ele roda normal, mas se mando executar com a parte em destaque (em vermelho), ele cria o arquivo, ou seja, ele executa o "else". Acredito que ele não esteja reconhecendo o comando "or". Alguém sabe o q ta errado??

<%

Const forWriting=2, forAppending=8

Dim objteste, objtextstream

Dim par1:par1=request.form("ncm")

Dim par2:par2=request.form("ncm")

set objteste = createobject("Scripting.FileSystemObject")

If objteste.FileExists("F:\cm\conc\txt\" & request.form("ncm") & ".txt") or ("F:\cm\and\txt\" & request.form("ncm") & ".txt") = true then %>

<script language="JavaScript">

{

alert("Este arquivo já existe. Favor verificar o nº. do CM.")

java script:history.go(-1)

}

</script>

<%

Else

Set objtextstream = objteste.CreateTextFile ("F:\cm\conc\txt\" & request.form("ncm") & ".txt", ForWriting, TristateFalse)

End if

objtextstream.write("")

objtextstream.writeline par1

objtextstream.write("")

objtextstream.writeline par2

objtextstream.write("")

objtextstream.close

 

Desde já, agradecido

[Salgado 4]

Acho que era isso que você queria:

If objteste.FileExists("F:\cm\conc\txt\"& request.form("ncm") &".txt") = TRUE or objteste.FileExists("F:\cm\and\txt\"& request.form("ncm") &".txt") = TRUE then

[thicomp 0]

Vlw kra, era isso mesmo