Funktion med ét argument...

Funktionen ser således ud lige nu:

<TD WIDTH="400"><P ALIGN="left"><V ALIGN="top">
<%
Function ShowFolderList()
folderspec = server.mappath("\download_files")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
%>

<table width="90%" height="100%" cellspacing="3">
<tr><td>Filnavn</td><td>Størrelse</td><td>Dato</td></tr>

<%
For Each file in foldercollection
%>
<tr>
<td width="50%"><P ALIGN="left"><FONT SIZE="1">
<% response.write("<a href='/download_files/" & file.name & "'>" & file.name & "</A><BR>")
%></FONT></P>
</td>
<td width="20%"><P ALIGN="right"><FONT SIZE="1">
<%                   
response.write(round(file.size/1024,3) & " kB  " & "<BR>")                   
%></FONT></P>
</td>
<td width="30%"><P ALIGN="right"><FONT SIZE="1">
<%                   
response.write( FormatDateTime(file.DateLastModified,vbShortDate) & "<BR>")   
%></FONT></P>
</td>
</tr>
<%
Next
%>
</table>
<%
End Function
response.write showfolderlist()
%>
</TD>

Prøv at retter denne linie:
Function ShowFolderList()

til:

Function ShowFolderList(strSti)


Denne linie:
folderspec = server.mappath("\download_files")

Til:

folderspec = server.mappath(strSti)


Denne linie rettes fra:
response.write showfolderlist()

Til:

response.write ShowFolderList("\download_files\patches");

Hvad med linket?

<% response.write("<a href='/download_files/" & file.name & "'>" & file.name & "</A><BR>")
%>

Bortset fra det med linket virker dit forslag fint :o)

ok det skal så rettes til:

<% response.write("<a href='" & strSti & "/" & file.name & "'>" & file.name & "</A><BR>")
%>

Det virker bare! Mange tak for hjælpen og værsgo: Her er dine velfortjente points :o)

Forøvrigt behageligt overskueligt svar, der var nemt at implementere :o)