---
title: "Upload och skriv ut filnamnen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82943-upload-och-skriv-ut-filnamnen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2003-07-28T17:51:25.000Z"
updated: "2003-07-28T21:46:38.000Z"
replies: 2
views: 202
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/82943-upload-och-skriv-ut-filnamnen"
---

# Upload och skriv ut filnamnen

## #1 — Asa, 2003-07-28T17:51Z

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????
```

Permalänk: https://www.webforum.nu/p/82943

## #2 — solbulle, 2003-07-28T20:11Z

```
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
  Bilderna = filename & "," & Bilderna  
  End If
Next
```

Permalänk: https://www.webforum.nu/p/1122732

## #3 — Asa, 2003-07-28T21:46Z

Tackar :)

Permalänk: https://www.webforum.nu/p/1122798

---

Tråden på webben: https://www.webforum.nu/amne/asp/82943-upload-och-skriv-ut-filnamnen