---

Hej NG
Jeg har brug for en hjælpende hånd til at gennemskue et lille men igen stort
problem.

Jeg har brug for at lave en dynamisk liste over nogle log filer, som ligger
i en bestemt mappe.

Det er egentlig meget nemt når man bruger FileSystemObject, men mit problem
er, at den fil der laver den dynamiske liste over log filer også bliver vist
og det er jo ikke meningen.

Her er lidt sourcecode på den fil der laver min dynamiske liste over log
filer lad os kalde den "loglink.asp":

<%Dim strPathInfo, strPhysicalPath

strPathInfo = Request.ServerVariables("SCRIPT_NAME")

strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile(strPhysicalPath)

Set objFolder = objFile.ParentFolder

Set objFolderContents = objFolder.Files

%>

Lidt html kode og så:

<% For Each objFileItem In objFolderContents %>

<table>

<tr><td><a href="view.asp?ID=<%= objFileItem.Name%>"><%=
objFileItem.Name%></a></td></tr>

<% Next %>

</table>

Det der sker er at alle mine filer i det bibliotek hvor "loglink.asp" ligger
bliver vist men også loglink.asp og det vil jeg jo ikke have. jeg har så
prøvet at flytte mine logfiler til en under mappe og kaldt den "log" men så
virker mit script ikke mere da "loglink.asp" skal ligge i samme folder for
at du.... eller kan man omgå det???

Er der mon nogen der kan hjælpe mig?

På forhånd tak



Otto Meurer

---

On Tue, 7 Aug 2001 11:46:27 +0200, "Otto Meurer" <webmaster@gugzel.dk>
wrote:

Hej Otto,

<SNIP>

Kan du ikke bare filtrere filen fra:

> Lidt html kode og så:
>
> <% For Each objFileItem In objFolderContents %>

Prøv at indføje:
If objFileItem.Name <> "loglink.asp" Then

> <table>

- du skal nok have "<table>" op før "For each..." :)

><tr><td><a href="view.asp?ID=<%= objFileItem.Name%>"><%=
>objFileItem.Name%></a></td></tr>
>
><%

End If

Next %>
>
></table>

Håber det leder dig på rette spor,

Mvh. Jørn


--
Jørn Andersen
Brønshøj

---

"Jørn Andersen" <jorn.a@email.dk> skrev

> Prøv at indføje:

> If objFileItem.Name <> "loglink.asp" Then



Hej Jørn

Det har jeg prøvet men det virker ikke, dog har jeg fundet en anden løsning.

Mit gamle kald:

<%

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile(strPhysicalPath)

Set objFolder = objFile.ParentFolder

Set objFolderContents = objFolder.Files

%>

Mit nye kald og nu virker det.

<%

Dim objFSO, objFileItem, objFolder, objFolderContents

Set objFSO = CreateObject("Scripting.FileSystemObject")

path = Server.MapPath( "\log\" )

set objFolder = objFSO.GetFolder ( path )

set objFoldercontents = objFolder.Files

%>