FreeAspUload filnavn

Hej Eksperter

Jeg bruger FreeAspUload til at uploade nogle billeder til serveren. Jeg har dog problemer med at finde ud af, hvordan man finder filnavnet på filen, man har upload'et. Jeg har indsat upload-scriptet herunder. Håber der er nogen, der kan hjælpe :-)


Dim Upload, fileName, fileSize, ks, i, fileKey
Dim uploadsDirVar
Dim img_filename
uploadsDirVar =  server.mappath(".") & "\content_images"
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)


vPath = "content_images/"
pPath = Server.MapPath(vPath)

Set fs2 = CreateObject("Scripting.FileSystemObject")
antal = fs2.GetFolder(pPath).Files.Count
Set fs2 = Nothing

function SaveFiles

    'Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
    ' If something fails inside the script, but the exception is handled
    If Err.Number<>0 then Exit function
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        SaveFiles = "<B>Filer sendt til server:</B> "
        for each fileKey in Upload.UploadedFiles.keys
            img_filename = Upload.UploadedFiles(fileKey)
            SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
        next
    else
        SaveFiles = "<strong>Ugyldigt filnavn!</strong>"
    end if
   
end function