Udelukke filer ?

Kan vi se en stump af koden?

Af gode grunde ved jeg jo ikke hvordan du har strikket siden sammen, men jeg går ud fra, at du bruger FileSystemObject til at få en liste over filerne. Der kunne du jo evt. sætte en if-sætning ind, som kontrollerer på filnavnet (evt. på flere forskellige) og blot undlader at vise dem...

Men kom med noget kode, så kan det være vi kan hjælpe dig :-)

ups - min forglemmelse :0)

<%
'-----------Her angiver du stien absolut i forhold til serveren-
'-----------husk altid at starte med / -------------------------
path="/filer/"
'---------------------------------------------------------------

Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(server.mappath(path))
Set folcoll = demofolder.SubFolders

For Each subfol in folcoll
Next

Set demofile = filesys.GetFolder(server.MapPath(path))
Set filecoll = demofile.Files

For Each fil in filecoll

If not path="/" then
SlaSh="/"
End If

filist = filist & "<font face=arial size=2><a href=" & path & SlaSh & fil.name & ">" & fil.name &"</a></font><br>" & " "
Next

Response.Write filist
%>

For Each fil in filecoll

If not path="/" then
SlaSh="/"
End If

If fil.name <> "mappekig.asp" Then
filist = filist & "<font face=arial size=2><a href=" & path & SlaSh & fil.name & ">" & fil.name &"</a></font><br>" & " "
Next
Else
  Next
End If


...prøv det her :-)

Den her kan forenkle det lidt:

Skriv dette i toppen:
udelukket(0) = "default.asp"
udelukket(1) = "mappekig.asp"

Skriv dette hvor det gamle står:
For i = 0 to 1
If fil.name <> udelukket(i) Then
filist = filist & "<font face=arial size=2><a href=" & path & SlaSh & fil.name & ">" & fil.name &"</a></font><br>" & " "
End If
Next

Spotgun: fik denne fejl

Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/filer/mappekig.asp, line 26

Next
^

Ahh, my bad

If fil.name <> "mappekig.asp" Then
filist = filist & "<font face=arial size=2><a href=" & path & SlaSh & fil.name & ">" & fil.name &"</a></font><br>" & " "
End If
Next

Sådan, så burde det virke :-)

Spotgun - det virker. Men hvad nu hvis jeg har 4 filer jeg gerne vil have skjult ?

Vil du vise dine asp sider?

Så retter du din if-sætning til sådan her:

If fil.name <> "mappekig.asp" Or fil.name <> "test.asp" or fil.name <> "blah.asp" Then

You get the picture... Ellers brug det truelz foreslog - det kommer an på hva' du syntes er mest overskueligt...

Det truelz foreslog kan jeg ikke få til at virke - sikkert min fejl..

Så jeg nupper din løsning - takker

If right(fil.name, 4) <> ".asp" Then

ville f.eks. sortere alle .asp filer fra...

Det burde virke med det jeg skrev, men jeg kan ikke huske hvordan man får den til at se hvor mange filer man har skrevet i variablen.
Så indtil videre må du selv rette det :)
(Er i skole)

If right(fil.name, 4) <> ".asp" Then

Den virker :0)

Tak for hjælpen til jer begge

Truelz - kom lige med et svar - du får lige lidt af pointene som trøst, da det sikkert virker det du skrev - det er bare min 10 tommelfingre der ikke kan få det til at virke :0)

Det synes jeg såmænd ikke er nødvendigt, men tak for det da :)

Lige et ekstra spørgsmål.... kan man et sted i scriptet lave sådan at alle de filer der vises åbner i et nyt vindue ? Som det er nu, åbner det i samme frame

Hov, jeg har jo skrevet noget forkert
Her følger erstatningen:
For i = 0 to 1
If fil.name <> udelukket(i) Then
filist = filist & "<font face=arial size=2><a href=" & path & SlaSh & fil.name & ">" & fil.name &"</a></font><br>" & " "
Exit For
End If
Next

Det laver du bare i html:
"<font face=arial size=2><a href=" & path & SlaSh & fil.name & " target=_new>"

og hvor skal det sættes ind i mappekig.asp ?

<%
'-----------Her angiver du stien absolut i forhold til serveren-
'-----------husk altid at starte med / -------------------------
path="/main/ugeseddel/"
'---------------------------------------------------------------

Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(server.mappath(path))
Set folcoll = demofolder.SubFolders

For Each subfol in folcoll
Next

Set demofile = filesys.GetFolder(server.MapPath(path))
Set filecoll = demofile.Files

For Each fil in filecoll

If not path="/" then
SlaSh="/"
End If

If right(fil.name, 4) <> ".asp" Then
filist = filist & "<font face=arial size=2><a href=" & path & SlaSh & fil.name & ">" & fil.name &"</a></font><br>" & " "
End If
Next

Response.Write filist
%>

If right(fil.name, 4) <> ".asp" Then
filist = filist & "<font face=arial size=2><a href=" & path & SlaSh & fil.name & " target=_new>" & fil.name &"</a></font><br>" & " "
End If
Next


Således

jeg takker og bukker :0)