Publicado em 2 de dez.

Busca Arquivo com FSO

Pessoal preciso de uma ajuda.

estou tentando fazer uma busca de uma arquivo no servidor, utilizando o seguinte script, mas tenho uma duvida caso eu não saiba a extensão do arquivo como posso adaptar este script.

Exemplo: não sei se o arquivo é .txt ou .doc

<%
pasta = "D:\"
arquivo = "teste.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(pasta)
Set fc = f.Files
For Each f1 in fc
if (f1.name=arquivo) then
response.write "aquivo existe"
end if
Next
%>
Aguardo Ajuda

Obrigado

Discussão (4)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

xanburzum· 2 de dez.

olha este exemplo, Num TXT com este conteúdo.

---------------------------------------------------------------------------------

imasters|http://www.imasters.com.br

MSDN|http://www.msdnbrasil.com.br

TechNet|http://www.technetbrasil.com.br

Artigos|http://www.imasters.com.br/drArtigos

Microsoft|http://www.microsoft.com.br

Forum|http://www.asp.com.br/forum

Tutoriais|http://www.uutoriais.com.br/tutorias

---------------------------------------------------------------------------------

<html>
<head>
<title>Busca em FSO</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#CCCCCC">
<form method="post" action="busca_fso_action.asp">
 <table width="650" cellpadding="1" cellspacing="0" border="1" align="center">
 <tr>
 <td> <div align="center"><font color="#666699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>::
 Entre com a pesquisa</strong></font></div></td>
 </tr>
 <tr>
 <td><font color="#666699" size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Pesquisar:</font>
 <input name="pesquisa" type="text" id="pesquisa" size="20" maxlength="50">
  
 <input type="submit" name="Submit" value="buscar">
 <input type="hidden" name="botao" value="true">
 </strong></font> </td>
 </tr>
 <tr>
 <td> </td>
 </tr>
 </table>
</form>
</body>
</html>

código

<% Option Explicit
' declaro as variaveis
Dim fso, fsofile,varpesquisa,varcaminho,contador,linha,icampo

' recupero as variaveis
varpesquisa=Trim(request.form("pesquisa"))
' retiro o aspas simples
varpesquisa=Replace(varpesquisa,"'","")

' crio o FSO

Set fso=Server.createobject("Scripting.FileSystemObject")
' abro o arquivo txt
varcaminho=Server.MapPath("texto.txt")
Set fsofile=fso.opentextfile(varcaminho,1,true,false)
if fsofile.AtEndOfStream = true then
response.Redirect("busca_fso_form.asp?msgeof=1")
else
contador=0
while not fsofile.AtEndOfStream = true
linha=fsofile.readline
icampo=Split(linha,"|",-1,1)
if LCase(varpesquisa) = LCase(icampo(0)) then

 response.Write("<a href='"&icampo(1)&"'>"& icampo(0)&"</a><br>")
 contador=contador + 1
 end if
 wend
 response.Write("<br> Total de registros encontrados:") &contador
	end if
	fsofile.close
	Set fsofile=nothing
	Set fso= nothing
	%>

Boca· 3 de dez.

Entendi agora ele procura pelo nome do arquivo dentro do texto.txt, mas uma coisa que observei vamos supor dentro do arquivo texto.txt coloquei um nome do arquivo exemplo teste.doc, se tento localizar ele com teste.doc ele encontra mas se tento somente teste não acha nada.

Public2004· 3 de dez.

Você quer pesquisar/verificar se o arquivo existe entre outros, ou pesquisar o conteúdo de um arquivo??

Att.

xanburzum· 3 de dez.

tem um exemplo que coloquei no lab. de script para busca de termos em uma pagina ou txt,

dá uma pesquisada que você acha