Udskrivning af filnavne

Hvad er det som du manger? Vil du have alle filerne skrevet ud på en asp side, eller vil du have dem gemt i database?

Hvis du vil have dem skrvet på siden kan du skrive
Source="C:\test"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oCatalog = oFS.GetFolder(Source)
Set oFiles = oCatalog.Files
For Each file In oFiles
    response.write file.name&"<BR>"
Next
   
set oFiles = nothing
set oCatalog = nothing
set oFS = nothing

undskyld ulejligheden. jeg har fundet svaret som ser sådan ud:

filepath = ""

For Each File in Upload.Files
filepath = filepath & File.Filename & " "
Next

filearr = split(filepath," ")

For i = LBound(filearr) To UBound(filearr)
    Response.Write filearr(i) & "<BR>"
Next