Upload och skriv ut filnamnen

Har denna kod där man laddar upp filer. Inte all kod är detta men hur ska jag göra i denna fil för att få alla filernas namn i en variabel så jag kan spara den sen.

For x = 1 To 5
  If Not UploadRequest.Item("file" & x).Item("Value") = "" Then
    filepathname = UploadRequest.Item("file" & x).Item("FileName")
    filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
    value = UploadRequest.Item("file" & x).Item("Value")

      Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
      pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
      Set MyFile = ScriptObject.CreateTextFile(Server.mappath(Mappen & filename))
        For i = 1 to LenB(value)
          MyFile.Write chr(AscB(MidB(value,i,1)))
        Next
      MyFile.Close
  End If
Next

Bilderna = xxx????