upload in cartella

[evilsaint]

Ho questo codice che fa l'upload di un file nella cartella corrente, cioè dove si trova il file.asp che effettua l'upload.
Però non so dove mettere il path per salvare il file in un'altra cartella, sapreste darmi qualche indicazione???
Ecco il codice:

 
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest  RequestBin
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
SetScriptObject=
         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)           & filename)
 
For i = 1 to LenB(value)
    MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

[santino83]

ad occhio, questo

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

deve diventare

dim path
path=server.mapPath("tua_cartella")
set MyFile=ScriptObject.CreateTextFile(path & filename)