---
title: "Ange mapp: upload utan komponent"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/89984-ange-mapp-upload-utan-komponent"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "eddy1"
published: "2003-11-09T15:05:57.000Z"
updated: "2003-11-09T15:05:57.000Z"
replies: 0
views: 174
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/89984-ange-mapp-upload-utan-komponent"
---

# Ange mapp: upload utan komponent

## #1 — eddy1, 2003-11-09T15:05Z

Har ett lite problem med ett uploadscript där jag vill bestäma i vilken mapp filen ska hamna. Som det är nu hamnar filen i den mapp som scriptfilen ligger, scriptfilen ligger i mapp 1:2 som ligger under mapp 1. men jag vill att den ska hamna i mapp 1:1 som ligger under mapp 1. 
Så vill typ få in "../1:1/" men vet inte riktigt var???

Jättetacksam för hjälp, nedan följer koden...

\<%
' Author Philippe Collignon

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

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

BuildUploadRequest RequestBin

'email = UploadRequest.Item("email").Item("Value")

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")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&amp;amp;"uploaded"&amp;amp;filename)

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

MyFile.Close
%\>
\<b\>Fil sparad på server: \</b\>\<%=filename%\>\<BR\>
\<img src="\<%="uploaded"&amp;amp;filename%\>"\>
\<!--#include file="upload.asp"--\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/89984-ange-mapp-upload-utan-komponent