---
title: "Sökning av hdd som vide gjort?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10772-sökning-av-hdd-som-vide-gjort"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ironhead"
published: "2001-07-20T09:32:00.000Z"
updated: "2001-07-25T12:37:00.000Z"
replies: 18
views: 462
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10772-sökning-av-hdd-som-vide-gjort"
---

# Sökning av hdd som vide gjort?

## #1 — ironhead, 2001-07-20T09:32Z

Hittade detta i ett gammalt inlägg:

```
<HTML>
<link REL="stylesheet" HREF="../IncludeFiles/style.css" TYPE="text/css">
<BODY bgcolor="#FFFFFF" text="#000000"><br>
<span class="LinkCat">
Sökresultat med ordet '<%=Request("SearchText")%>'</span><BR>
<%
Const fsoForReading = 1

Dim strSearchText
strSearchText = Request("SearchText")

'Now, we want to search all of the files
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("/download/"))

Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False

For Each objFile in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

strFileContents = objTextStream.ReadAll

If InStr(1,strFileContents,strSearchText,1) then
Response.Write "<LI><A HREF=""/" & objFile.Name & _
""">" & objFile.Name & "</A><BR>"

bolFileFound = True
End If

objTextStream.Close
End If
Next

if Not bolFileFound then Response.Write "Inga filer hittades..."

Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
```

Hur ska man skriva i denna kod för att man ska kunna lista filerna i underkatalogerna under 'download' också?

\[Redigerat av ironhead den 20 jul 2001\]

Permalänk: https://www.webforum.nu/p/10772

## #2 — ironhead, 2001-07-22T16:12Z

Kan man med hjälp av denna kod endast lista funna kataloger då?

Permalänk: https://www.webforum.nu/p/278759

## #3 — Pace, 2001-07-22T16:18Z

```
Set folder = filsystemobjekt.GetFolder(StartMapp)
Set underkataloger = folder.SubFolders
```

Permalänk: https://www.webforum.nu/p/278760

## #4 — ironhead, 2001-07-24T07:38Z

Pace: Hur ska jag implementera din kod i den befintliga för att få det att fungera?

Permalänk: https://www.webforum.nu/p/278761

## #5 — Pace, 2001-07-24T13:11Z

Hmmmmm ... bra fråga, och jag har tyvärr inget bra svar. Däremot finns det en sådan sökmotor på
 <http://www.surf-net.co.uk/asp/default.asp> 

vid namn "Advanced Site Search Engine v1.61" som använder Reg exp samt en enklare sökmotor för de som inte har VBScript 5.0.

Du kan ju alltid kolla i koden där! Koden är väldigt bra strukturerad och kommenterad. Surf-net har förutom detta sökverktyg även en hel del mycket användbara script.

Permalänk: https://www.webforum.nu/p/278762

## #6 — ironhead, 2001-07-24T13:31Z

Ska titta på det. Tack Pace!

Permalänk: https://www.webforum.nu/p/278763

## #7 — Pace, 2001-07-24T13:56Z

Ironhead!

Jag håller på att översätta koden till schwedish, så gör inte samma sak! Du kan få min (surf-nets) kod senare!

Permalänk: https://www.webforum.nu/p/278764

## #8 — ironhead, 2001-07-24T14:02Z

\*he he\* nice! mottages tacksamt ;)

Permalänk: https://www.webforum.nu/p/278765

## #9 — Pace, 2001-07-24T14:10Z

Jepp, det hoppas jag efter allt svett och mödosamma timmar (ehhh minuter snarare) jag lagt ned på detta! ;)

Dessutom slänger jag in ett par extra funktioner eventuellt. :)

Jag lägger upp det under wF script sedan. Observera Surf-Net's copyright dock!

Permalänk: https://www.webforum.nu/p/278766

## #10 — PatrikB, 2001-07-24T14:14Z

```
<HTML>
<link REL="stylesheet" HREF="../IncludeFiles/style.css" TYPE="text/css">
<BODY bgcolor="#FFFFFF" text="#000000"><br>
<span class="LinkCat">
Sökresultat med ordet '<%=Request("SearchText")%>'</span><BR>
<%
Const fsoForReading = 1
Dim strSearchText, item

strSearchText = Request("SearchText")

'Now, we want to search all of the files
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("/download/"))

[b]Set SubFolder = objFolder.SubFolders

'## -- börja loopa igenom alla submappar
For Each item in SubFolder
	Response.Write item & "<BR>"
Next
'## -- slut på submappar --[/b]

Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False

For Each objFile in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

strFileContents = objTextStream.ReadAll

If InStr(1,strFileContents,strSearchText,1) then
Response.Write "<LI><A HREF=""/" & objFile.Name & _
""">" & objFile.Name & "</A><BR>"

bolFileFound = True
End If

objTextStream.Close
End If
Next

if Not bolFileFound then Response.Write "Inga filer hittades..."

Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
```

bör göra susen

cya,
PatrikB

\[Redigerat av PatrikB den 24 jul 2001\]

Permalänk: https://www.webforum.nu/p/278767

## #11 — Pace, 2001-07-24T14:17Z

... och filerna i underkatalogerna?

Permalänk: https://www.webforum.nu/p/278768

## #12 — Pace, 2001-07-24T16:34Z

Nu har jag i alla fall översatt koden och ska enbart finjustera HTML:n lite.

Men jag vill passa på att ta upp en gammal tråd, om open source utveckling,:
 <http://cgi.webforum.nu/wf/Forum11/HTML/005249.html> 

Vad säger ni om att göra detta scriptet open source? Jag har just översatt det, och det kan behöva optimeras en aning!

Kom med förslag.

Permalänk: https://www.webforum.nu/p/278769

## #13 — ironhead, 2001-07-25T05:45Z

PatrikB: Funkar nästan som jag vill nu. Men när jag söker på ett ord listas alla underkataloger oavsett sökord.

Pace: Entusiasm 100%, stjärna i kanten

Ni ska ha en eloge (alla) för att ni hjälper de nödställda stackarna (jag) som försöker programmera ;)

\[Redigerat av ironhead den 25 jul 2001\]

Permalänk: https://www.webforum.nu/p/278770

## #14 — PatrikB, 2001-07-25T06:15Z

Pace:
Då är det bara att skapa ett nytt folder object som körs på varje underkatalog om man vill söka sig nedåt.
Fast ... det kan ju bli en hel del,om sökvägen "råkar" vara c:\\ \*ler\*

Ironhead:
Då får du jämföra katalognamnet med det sök ord som du har.

Tex:

```
For Each item in SubFolder
If LCase(strSearchString) = LCase(Left(item,Len(strSearchString)) Then
Response.Write item & "<BR>"
End If
Next
```

cya,
PatrikB

Permalänk: https://www.webforum.nu/p/278771

## #15 — ironhead, 2001-07-25T06:27Z

Vad gör jag för fel?
PatrikB: Nu hittar den inte nånting...

Permalänk: https://www.webforum.nu/p/278772

## #16 — ironhead, 2001-07-25T07:29Z

Är detta en dålig lösning? Den funkar iallafall. Kanske går det att göra på ett bättre sätt?

```
For Each item in SubFolder
a=Replace(item,"C:\Inetpub\wwwroot\Download\","")
If LCase(strSearchText) = LCase(Left(a,Len(strSearchText))) Then
Response.Write a & "<BR>"
End If
Next
```

Permalänk: https://www.webforum.nu/p/278773

## #17 — ironhead, 2001-07-25T12:02Z

...Tillslut blev det såhär

```
strSearchText=Request.Form("SearchText")
For Each item in SubFolder
NewItem=Replace(item,"C:\Inetpub\wwwroot\adsl\Download\","")
If LCase(instr(NewItem,strSearchText)) Then
Response.Write NewItem
End If
Next
```

Permalänk: https://www.webforum.nu/p/278774

## #18 — Pace, 2001-07-25T12:30Z

> Entusiasm 100%, stjärna i kanten

Jepp, eller en tusenlapp går också bra :)

Nåja, den översatta versionen har jag lagt upp på <http://www.voodoofilm.org/opensource/sok.txt> 

Bara att ladda ner & använda! Men som sagt, det är open source, så optimera skiten och skicka den till mig igen så fler kan ta del av det!

Permalänk: https://www.webforum.nu/p/278775

## #19 — ironhead, 2001-07-25T12:37Z

\*he he\* Tack för det!

Permalänk: https://www.webforum.nu/p/278776

---

Tråden på webben: https://www.webforum.nu/amne/asp/10772-sökning-av-hdd-som-vide-gjort