Vide sÖkes!!!

Har fixat till det lite... har inte testat det än, och det är taget direkt ur huvudet så inga garantier... :)

Du lägger till/tar bort ur exts-listan (exts = Split("zip,exe",",")), så om du vill lägga till .md2-filer så lägger du bara till det i listan:

exts = Split("zip,exe,md2",",")

<%
'***** Specifierar sökvägen till filerna, lokalt och via HTTP *****
exts = Split("zip,exe",",")
http = "http://intranet/server"
lokal = Server.Mappath("..\server\")
'***** Skapar FSO-objektet och hämtar in alla filer från sökvägen *****'
Set fso = CreateObject("scripting.FileSystemObject")
Set fsof = fso.GetFolder(lokal)
Set fsofi = fsof.files
'***** Skapar ett Regular Expression *****'
Set regEx = New RegExp
regEx.IgnoreCase = True 
regEx.Global = True

'***** Loopar igenom alla filer i katalogen *****'
For Each fil in fsofi

For i = 0 To Ubound(exts)
If Cstr(Right(fil,3)) = Cstr(exts(i)) then
access = true
End If
Next

If access then
'***** Öppnar filen och lägger allt innehåll i variabelnn filecont *****'
Set filen = fso.OpenTextFile(lokal & "\" & fil.name)
filecont = filen.ReadAll

'***** Letar upp positionen för textsträngen <title> *****'
regEx.Pattern = "<title>"
Set Matches = regEx.Execute(filecont)
For each match1 in Matches
pos1 = Match1.FirstIndex+8
exit For
Next

'***** Letar upp positionen för textsträngen </title> *****'
regEx.Pattern = "</title>"
Set Matches2 = regEx.Execute(filecont)
For each match2 in Matches2
pos2 = Match2.FirstIndex
exit For
Next

'***** Bryter ut all text mellan <title> och </title> *****'
title_text = pos2 - pos1
title = Mid(filecont,pos1,title_text+1)

'***** Skriver ut en länk till filen med titeln som länknamn *****'
Response.write "<a href='" & http & "/" & fil.name & "'>" & title & "</a><br>"

End If
access = false
Next
%>

------------------
It's not that I'm afraid to die. I just don't want to be there when it happens.
Kom hem till mig...

[Redigerat av Vide den 22 nov 2000]

Tack, ska prova skriptet , medelar dig om det inte funkar...

------------------
Bortom tid, bortom förvärv, väntar blott sorg och fördärv.

Tyvärr fungerade det inte... så ja ber dig att hjälpa mej att fixa till det, fick följande felmedelande..:
----------------------------------
Körningsfel i Microsoft VBScript fel '800a003e'

Indata överskrider filslut

/server/grejen.asp, rad 26
----------------------------------

Tack på förhand....

------------------
Bortom tid, bortom förvärv, väntar blott sorg och fördärv.

Listar du filer med fler bokstäver i 'extension' än tre? För jag har inte gjort den dynamisk på det sättet...

Men felmeddelandet tyder ju på något helt annat, jag använder ju taggarna <title> och </title> för att bestämma dokumentets namn, det kan inte vara det som spökar? Att du inte har någon av dessa taggar menar jag...

Mvh, Vide

------------------
It's not that I'm afraid to die. I just don't want to be there when it happens.
Kom hem till mig...

[Redigerat av Vide den 24 nov 2000]

Hej!
Med risk för att klampa in i ert samtal:

<%
dim fso,mapp,fil,tla
set fso=Server.CreateObject("Scripting.FileSystemObject")
set mapp=fso.GetFolder(server.mappath("/din_mapp"))

for each fil in mapp.Files
tla = right(fil,3)

if tla = "zip" or tla = "exe" Then

response.write "<a href='" & fil.name & "'>" & fil.name & "</a><br>"
End If
next

set fil=Nothing
set mapp=Nothing
set fso=Nothing
%>

Kan detta motsvara dina behov?

/ J

Tack för era betydelsefulla svar! nu kan ja äntligen sova i lungn och ro... Tack Så Väldigt mycket!

------------------
Bortom tid, bortom förvärv, väntar blott sorg och fördärv.