---
title: "ändra filename i upload?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87386-ändra-filename-i-upload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nille99"
published: "2003-10-01T12:23:01.000Z"
updated: "2003-10-01T13:24:23.000Z"
replies: 7
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/87386-ändra-filename-i-upload"
---

# ändra filename i upload?

## #1 — nille99, 2003-10-01T12:23Z

jag har en upload funktion som fungerar

men nu vill jag att den spara efter ett speciellt namn

tex
Finns det 6 st bilder i katalogen så ska den nya bilden heta
bild7 och bilden efter sak heta bild8

```
Set File	= Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename")))
```

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

## #2 — Palle, 2003-10-01T12:40Z

Ett förslag kanske.. :)

Det nya filnamnet finns i variabeln *strNewName*.

```
[red]strPath = Server.MapPath(Request.ServerVariables("PATH_INFO"))

Set Fso = CreateObject("Scripting.FileSystemObject")
	Set objFile = Fso.GetFile(strPath)
		Set objFolder = objFile.ParentFolder
			intFiles = objFolder.Files.Count
		Set objFolder = Nothing
	Set objFile = Nothing
Set Fso = Nothing

strOldName = Upload("upload").Item("filename")
strNewName = "bild"& intFiles & "."& Right(strOldName, Len(strOldName) - InStrRev(strOldName, ".", -1, 1))[/red]
```

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

## #3 — nille99, 2003-10-01T12:53Z

hur sparar jag den nya filnamnet?

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

## #4 — Palle, 2003-10-01T12:55Z

Hur sparade du det gamla filnamnet? ;)

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

## #5 — nille99, 2003-10-01T12:58Z

```
 <%@EnableSessionState=True%>
<%Response.Buffer=True%>
<%Response.Expires=0

	UPLOAD_PATH	= Server.MapPath("bildspel")
		Set Fso	= Server.CreateObject("Scripting.FileSystemObject")
		Set Folder	= Fso.getFolder(UPLOAD_PATH)

If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
			Set Upload	= get_upload_files()
			fcontent	= Upload("upload").Item("content")

              allowlist = ".gif,.jpg,.bmp,.png"
              extension = right(extract_filename(Upload("upload").Item("filename")),4)
                If Fso.FileExists(UPLOAD_PATH & "\" & extract_filename(fcontent)) Then
                    Session("mess") = "En fil med det namnet finns redan!"
		    Response.Redirect "upload.asp"
                Else
                     If instr(allowlist,extension) then
                       Set File	= Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename")))
                 	 Else
                        Session("mess") = "Du får <b>inte</b> skicka upp filen med det filformatet.<br>Endast <b>" & allowlist & "</b> är godkända."
                        Response.Redirect "upload.asp"
                     End If
                End If                        
		For i = 1 to LenB(fcontent)
			File.Write chr(AscB(MidB(fcontent, i, 1)))
		Next
		File.Close: Set File	= Nothing
                Session("fil") = extract_filename(Upload("upload").Item("filename"))
                Session("visa") = "ok"
		Response.Redirect "upload.asp"
	End If
```

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

## #6 — Palle, 2003-10-01T13:04Z

```
[red]Set File = Fso.CreateTextFile(UPLOAD_PATH &"\"& strNewName)[/red]
```

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

## #7 — nille99, 2003-10-01T13:23Z

tack det fungerade

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

## #8 — Palle, 2003-10-01T13:24Z

np! :bire

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/87386-ändra-filename-i-upload