ASP: Vis / last ned filer

[philrupp]

Noen som kan hjelpe med et enkelt script som lister opp de ulike filene i en folder, og som gjør det mulig å laste dem ned ved å trykke på filnavnet?

 

Har forsøkt litt forskjellig, men får det ikke helt til.

 

Har forsøkt denne:

 

<%

dim fs,fo,x

set fs=Server.CreateObject("Scripting.FileSystemObject")

set fo=fs.GetFolder("\uploads\")for each x in fo.files

'Print the name of all files in the test folder

Response.write(x.Name & "<br />")

next

set fo=nothing

set fs=nothing

%>

 

men det funka ikke.

 

noen som kan hjelpe?

[backup]

Dim fso, f,s, fc, f1

set fso = CreateObject("Scripting.FileSystemoObject")

Set f = fso.GetFolder("sett mappenavn her")

Set fc = f.Files

For Each f1 in fc

response.write f1.name & "<br>"

Next