[Resolvido] Comparar com item do Array

recupere os itens do array e faça uma comparação com os dados da pasta, atraves de um If simples

Deixa eu explicar melhor: Tenho uma função recursiva para listar pastas e subpastas e na verdade todas as pastas serão listadas, mas as que estão especificadas no Array serão exibidas/tratadas de forma diferenciada. Se fosse listar apenas as que estão no Array, este simples "if" resolveria, mas não e o caso.

Att.

e como seria essa forma diferenciada

Utilize a função Filter para verificar se a pasta existe no Array.

Essa função retorna um Array somente com as palavras buscadas. Nesse caso, basta você verificar o retorno. Se o novo array possui algum valor, é pq a pasta existe, se não possui é pq não existe.

VBScript Filter Function

Valew pessoal! Esse "Filter" funcionou certinho.

Att.

Que bom que resolveu Public2004.

Abraço.

opa legal amigo..

depois se quiser coloca o code, para futuras buscas de outros users

Sem problema. Claro que aqui utilizo de forma mais elaborada, mas o exemplo abaixo mostra o mesmo resultado que precisei ou seja, listo vários registros mas alguns deles que fazem parte de um array são exibidos de forma diferenciada. Para o exemplo, crie um arquivo de texto e salve com o nome de "frutas.txt" com o conteúdo abaixo:

abacate
goiaba
abacaxi
banana
caju
morango
laranja
tangerina
uva
mangaE no ASP, efetuamos a leitura das linhas do arquivo acima e com a utilização do "Filter", comparamos cada linha com o Array, se existir, exibe o texto com outra cor:

<%
Dim arrCitricas,objFso,objFile,objStream,lineRow,objFilter,styleFont,itemFilter
Const forReading = 1

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.GetFile(Server.MapPath("frutas.txt"))
Set objStream = objFile.OpenAsTextStream(forReading,false)

arrCitricas = Array("abacaxi","caju","laranja","tangerina")
While Not objStream.AtEndOfStream
lineRow = objStream.Readline
objFilter = Filter(arrCitricas,lineRow)
styleFont = "#000"
For each itemFilter in objFilter
styleFont = "#f00"
Next
Response.Write("<p style='color:"& styleFont &"'>"& lineRow &"</p>")
Wend

objStream.Close
Set objStream = Nothing
Set objFso = Nothing
%>
Espero que seja útil para outras pessoas.

Att