Belki birilerinin işine yarar yazdığım kodları ekliyorum
<%
Dim dosya, path, sayi, i, dosyadegiskeni,ArananKelime, Sonuc
set dosya =
server.CreateObject("Scripting.FileSystemObject")
set path = dosya.GetFolder(
server.MapPath("dosya/"))
sayi = path.Files.count
Response.Write(sayi & " sayfada arama yapıldı.<strong>" & Request.
form("Arama") & "</strong> kelimesini iceren sayfalar aşağıdadır.<p></p>")
For i=1 to sayi
set dosyadegiskeni=dosya.OpenTextFile(
server.MapPath(" dosya/" & i & ".txt"),1)
a = dosyadegiskeni.readALL
ArananKelime = Request.
form("Arama")
Sonuc = Instr(a, ArananKelime)
if Sonuc >0 then
Response.Write("<a href=" & path & "/" & i & ".txt>Bulunan Sonuç</a><br>")
end if
dosyadegiskeni.Close
Next
set dosyadegiskeni=Nothing
set path=Nothing
set dosya=Nothing
%>
Sıralı numaralandırılmış dosyalarda gayet sorunsuz çalışıyor. İçlerinde arama yapılacak text dosyaları, dosya isminde bir dizinde bulunuyor. Yol gösterdiğin için teşekkürler soul