Definir variável para MapPath

[Thesigner 0]

Salve galera, tudo certo?

 

Seguinte, estou desenvolvendo uma galeria de imagens e estou usando aspUpload e aspJpeg.

E eu estou tentando puxar o caminho da MapPath de um form. O nome do campo é "pasta".

 

O código é o seguinte:

 

<%

Set Upload = Server.CreateObject("Persits.Upload")

Path = Server.MapPath("upload/")

Count = Upload.Save(Path)

 

....

Eu tentei usar:

 

<%

Set Upload = Server.CreateObject("Persits.Upload")

 

pasta = Upload.Form("pasta")

Path = Server.MapPath(pasta)

Count = Upload.Save(Path)

 

....

tentei usar:

 

<%

Set Upload = Server.CreateObject("Persits.Upload")

 

pasta = Request.Form("pasta")

Path = Server.MapPath(pasta)

Count = Upload.Save(Path)

 

....

 

 

Mas nenhum dos dois deu certo, aparece o seguinte erro:

 

O parâmetro Path deve ser especificado para o método MapPath.

 

 

 

Se alguém puder me dar uma luz fico grato.

 

Abs

[Public2004 79]

Se a pasta não existir, primeiro você deverá criá-la...

 

Abs.

[Mário Monteiro 179]

antes desta linha que da erro escreva o conteudo de pasta na tela e post aqui

[Thesigner 0]

A pasta é essa Upload. E ela ja existe.

 

Quando eu deixo Path = Server.MapPath("upload/") os arquivos sao upados normal. So da o erro quando eu tento enviar o "upload/" de um form.

 

Dentro dessa pasta tem arquivos de fotos. E esse trecho é o comeco do código da pagina.

 

 

 

O código inteiro:

<%

Set Upload = Server.CreateObject("Persits.Upload")

Path = Server.MapPath("upload/")

Count = Upload.Save(Path)

 

Set File = Upload.Files(1)

Set File2 = Upload.Files(2)

Set File3 = Upload.Files(3)

 

'--------------------------------------------------------------------

' JPEG1 GRANDE

' criando instancia

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' abrindo image

Jpeg.Open (File.Path)

 

' novo width

L = 400

 

Jpeg.Width = L

Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

 

SavePath = Path & "\" & File.ExtractFileName

 

jpeg.Save SavePath

 

'-------------------------------------------------------------------------

 

'JPEG1 MINI

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' abrindo image

Jpeg.Open (File.Path)

 

' novo width

L = 200

 

Jpeg.Width = L

Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

 

SavePath = Path & "\mini\" & File.ExtractFileName

 

jpeg.Save SavePath

 

 

 

 

 

 

 

'-------------------------------------------------------------------------

'JPEG2 GRANDE

' criando instancia

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' abrindo image

Jpeg.Open (File2.Path)

 

' novo width

L = 400

 

Jpeg.Width = L

Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

 

SavePath = Path & "\" & File2.ExtractFileName

 

jpeg.Save SavePath

 

 

 

'------------------------------------------------------------------------

'JPEG2 MINI

' criando instancia

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' abrindo image

Jpeg.Open (File2.Path)

 

' novo width

L = 200

 

Jpeg.Width = L

Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

 

SavePath = Path & "\mini\" & File2.ExtractFileName

 

jpeg.Save SavePath

 

 

 

 

 

 

 

 

 

'----------------------------------------------------------------------------

'JPEG3 GRANDE

' criando instancia

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' abrindo image

Jpeg.Open (File3.Path)

 

' novo width

L = 400

 

Jpeg.Width = L

Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

 

SavePath = Path & "\" & File3.ExtractFileName

 

jpeg.Save SavePath

 

 

 

 

'----------------------------------------------------------------------------

'JPEG3 MINI

' criando instancia

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' abrindo image

Jpeg.Open (File3.Path)

 

' novo width

L = 200

 

Jpeg.Width = L

Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

 

SavePath = Path & "\mini\" & File3.ExtractFileName

 

jpeg.Save SavePath

 

Response.Redirect "ok.asp"

%>

[Mário Monteiro 179]

como assim enviar de um form? com qeu objetivo?

[Thesigner 0]

Assim, to criando um programinha.

 

o diretorio contem:

 

new.asp

Cria os novos eventos (pastas/usando FSO).

 

form.asp

Tem um form para a pagina upload com:

List/Menu (id = pasta) (lista as pastas)

e os 3 campos que upam os arquivos.

 

e a pagina upload.asp é essa ai de cima.

 

 

Entao o intuito é...qnd a pessoa for criar um novo "evento" vai criar novas pastas.

Na pagina Form, ela vai escolher pra qual evento(pasta) quer enviar as fotos que esta upando, por isso preciso enviar essa variavel da form.asp para a upload.asp.

[Thesigner 0]

hum...ninguemmais?

 

eu imagino que nao deva ser nada muito complicado. mas tentei de varios jeitos e até agora nada =/

[Public2004 79]

Quando você recupera: pasta = Upload.Form("pasta") - você já envia do Form a barra ( / ) ex: "pasta/", caso afirmativo ela está chegando (dê um response.write)...

[Thesigner 0]

Então public, eu insiro a barra sim, e a variavel tá chegando, mas eu nao consigo inserir ela no MapPath, esse é o problema!

[Thesigner 0]

galera me ajudem por favor :(

[Salgado 4]

Ok, vamos tentar. Mas não fique dando UPS nos posts.

 

Como está seu formulário, como está enviando o dado para ser passado ao Server.MapPath e como você está fazendo?

[Thesigner 0]

Obrigado Salgado. E desculpa os UPs.

 

Então meu formulário está assim:

<FORM ENCTYPE="multipart/form-data" ACTION="upload.asp" METHOD="POST">
   <p>
	 <label>
	 <input name="pasta" type="text" id="pasta" value="upload/" />
	 </label>
</p>
   <p>
	 <INPUT TYPE="FILE" NAME="FILE1">
	 <INPUT TYPE="FILE" NAME="FILE2">
	 <INPUT TYPE="FILE" NAME="FILE3">
	 <INPUT TYPE="SUBMIT" VALUE="Upload!">
	  </p>
</FORM>

 

Ai no arquivo Upload.asp eu tenho:

 

<%
Set Upload = Server.CreateObject("Persits.Upload")
pasta = Upload.Form("pasta")
Path = Server.MapPath(pasta)
Count = Upload.Save(Path)

Set File = Upload.Files(1)
Set File2 = Upload.Files(2)
Set File3 = Upload.Files(3)

'--------------------------------------------------------------------
' JPEG1 GRANDE
' criando instancia
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' abrindo image
Jpeg.Open (File.Path)

' novo width
L = 400

Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

SavePath = Path & "\" & File.ExtractFileName

jpeg.Save SavePath

'-------------------------------------------------------------------------

'JPEG1 MINI
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' abrindo image
Jpeg.Open (File.Path)

' novo width
L = 200

Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

SavePath = Path & "\mini\" & File.ExtractFileName

jpeg.Save SavePath







'-------------------------------------------------------------------------
'JPEG2 GRANDE
' criando instancia
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' abrindo image
Jpeg.Open (File2.Path)

' novo width
L = 400

Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

SavePath = Path & "\" & File2.ExtractFileName

jpeg.Save SavePath



'------------------------------------------------------------------------
'JPEG2 MINI
' criando instancia
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' abrindo image
Jpeg.Open (File2.Path)

' novo width
L = 200

Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

SavePath = Path & "\mini\" & File2.ExtractFileName

jpeg.Save SavePath









'----------------------------------------------------------------------------
'JPEG3 GRANDE
' criando instancia
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' abrindo image
Jpeg.Open (File3.Path)

' novo width
L = 400

Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

SavePath = Path & "\" & File3.ExtractFileName

jpeg.Save SavePath




'----------------------------------------------------------------------------
'JPEG3 MINI
' criando instancia
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' abrindo image
Jpeg.Open (File3.Path)

' novo width
L = 200

Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

SavePath = Path & "\mini\" & File3.ExtractFileName

jpeg.Save SavePath

Response.Redirect "ok.asp"
%>

[Thesigner 0]

Ainda não consegui resolver galera =/

Alguém tem alguma sugestão?

 

Desculpa o UP, mas ja tava ha dias esquecido o tópico.