---
title: "ladda upp fil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/152861-ladda-upp-fil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nille99"
published: "2006-10-23T09:31:14.000Z"
updated: "2006-11-09T14:05:11.000Z"
replies: 6
views: 719
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/152861-ladda-upp-fil"
---

# ladda upp fil

## #1 — nille99, 2006-10-23T09:31Z

jag har ett asp kod som klarar av att ladda upp fil på min server

men ibland så har filnamnet så konstiga namn, så jag vill ha en text ruta där jag kan skriva in ett nytt namn

hur gör jag?

\<form method="post" action="outputfile.asp" enctype="multipart/form-data"\>

	\<input type="file" name="blob"\>\<br\>
	\<input type="text" name=namn\>\<br\>
	\<input type="submit" value="Ladda upp, yo!"\>
	
\</form\>
outputfile.asp
\<%
Server.ScriptTimeout = 500
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

name = UploadRequest.Item("namn").Item("TextName")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\\"))
value = UploadRequest.Item("blob").Item("Value")
filtyp = lcase(right(contentType,3))

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath("./filer"))

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
'Set MyFile = ScriptObject.CreateTextFile(Server.mappath(filename))

for each file in folder.files
  	if file.name = filename then
		filename = "kopia" & filename
	elseif file.name = "kopia" &filename then
		filename = "kopia1" & filename
	end if
next

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("filer/" & filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

response.write "\<b\>Filens sökväg:\</b\> " & Server.mappath(filename) & "\<br\>"
response.write "\<b\>Filnamn:\</b\> " & filename & "\<br\>\<br\>"
response.write "\<b\>typ:\</b\> " & filtyp & "\<br\>\<br\>"
response.write "\<b\>value:\</b\> " & name & "\<br\>\<br\>"

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

## #2 — nille99, 2006-10-23T09:49Z

fick det fungera

name = UploadRequest.Item("namn").Item("Value")
filtyp = lcase(right(contentType,3))
nynamn = name & "." & filtyp

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

## #3 — @nders, 2006-10-23T09:54Z

Va bra!

1) \[kod\]-taggar när du postar kod
2) [Acceptera som slutgiltigt svar](http://www.webforum.nu/faq.php?faq=vb_board_usage#faq_faq_acceptance)

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

## #4 — nille99, 2006-11-09T13:02Z

kort fråga 

hur skriver jag över en fil på serven?

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

## #5 — nille99, 2006-11-09T13:23Z

jag löste problemet

jag tog bort filen före jag la ut den igen

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

## #6 — @nders, 2006-11-09T13:33Z

<http://www.webforum.nu/showthread.php?p=1246392#post1246392>

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

## #7 — jonne, 2006-11-09T14:05Z

Annars har du parametrar i fso för overwrite
<http://www.devguru.com/technologies/vbscript/14051.asp>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/152861-ladda-upp-fil