Hej,
Jag har en subrutin som loppar igenom angiven mapp och skriver ut alla filer som klickbara länkar på en html-sida. Kan man skicka med hur många ggr den skall loopa igenom ungefär såhär för att loopa 5ggr??
<% writePath("/mapp/mapp", "5")%>

<%
'##########
Sub writePath(str)

path = server.mappath(str) 'Ta reda på sökvägen..
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(path)

'skriv ut filerna som finns i respektive mapp
for each x in fo.files 'Loopar igenom mappen

'ta bort filändelserna i länkenns namn
mnDotPos = InstrRev(x.Name, ".", -1, 1)
delExt = "." + right(x.Name, len(x.Name) - mnDotPos)
result = Replace(x.Name, delExt, "")

'kapa (xxx) ur filnamnet...
start = InStr(x.Name, "(")
slut = InStr(x.Name, ")")+1
sista = delExt
kapa = slut-start

'kapa bort (xxx) ur länkens namn
result = Mid(result,slut, mnDotPos)

if left(result,Lista) <> "_Arkiv" then
Response.write "<tr valign='top'><td>" & FormatDateTime(x.DateLastModified, 2)'### senast ändrad datum
Response.write "</td><td>" & result & "</td></tr>"'### länkar till filerna
end if
next

set fo=nothing
set fs=nothing
End Sub
%>




<% writePath("/mapp/mapp")%>

Det borde gå....
kör med call writePath(arg1,arg2)

Funkar bra, Tackar!