Definir pasta do Upload

[Creedence 1]

Boa tarde !

 

Tenho uma duvida com relação aos componentes de upload.

Eu consigo definir a pasta onde serão salvos os arquivos dependendo do que foi selecionado no form ?

Ex:

No formulario de upload mostra opção pra selecionar o arquivo a enviar e tambem a pessoa selecionaria a que se refere aquele upload. (banners / noticias / galeria, etc ...)

A pasta em que o arquivo seria gravado dependeria dessa seleção.

Como se eu fizesse o request desse campo do formulario enviado e criasse uma variavel com o caminho a ser gravado dependendo do resultado do request. E só depois efetuaria o comando do upload.

Nos testes que fiz esse tipo de formulario de upload não gerou nada no request.

 

Não sei se ficou claro,

 

Obrigado,

 

Creedence

[pedro rodrigues 4]

Você não conseguiu recuperar os dados do formulário após o post?

Você está usando qual componente de upload?

[Creedence 1]

Pedro, boa tarde !

 

Eu estou testando o SaFileUp .

Veja meu exemplo:

*************************************

<form ACTION="tstenvioupload.asp" METHOD="POST" ENCtype="multipart/form-data">
<font face="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><strong>SELECIONE
O ARQUIVO::</strong><br>
<br>
<input type="FILE" SIZE="40" NAME="FILE1">
<p>Tipo de Arquivo:
<select name="tipo" id="tipo">
<option value="B">Banners</option>
<option value="N">Noticias</option>
<option value="G">Galeria</option>
</select>
</font>
<p> <font face="Verdana, Arial, Helvetica, sans-serif">
<input type="SUBMIT" VALUE="Enviar">
</font></p>
</form >
*************************************

No asp que vai efetivar o envio, eu tento pegar via request o campo tipo, mas vem em branco.

 

ex:

<%

vartipo = request("tipo")

response.write "Tipo="& vartipo

...

%>

 

Não sei se estou fazendo algo errado,.

 

Obrigado,

 

Marcos

[pedro rodrigues 4]

Posta todo o código do ASP que recebe o post.

 

Você vai ter que recuprar os dados do form pelo objeto do SaFileUp.

 

Dim oFileUp
Dim sTipo

Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")

sTipo = oFileUp.Form("tipo")

Response.Werite "<p>Tipo: #" & sTipo & "#</p>"

Perdão, já ia esquecendo-me...

Para salvar em locais diferentes, você pode utilizar o método SaveAs. Exemplo:

 

Dim oFileUp
Dim sTipo

Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")

sTipo = oFileUp.Form("tipo")

Response.Werite "<p>Tipo: #" & sTipo & "#</p>"




If (IsObject(oFileUp.Form("file1"))) Then
  If (Not oFileUp.Form("file1").IsEmpty) Then
    oFileUp.Form("file1").SaveAS "D:\CAMINHO\" & oFileUp.Form("file1").ShotFileName
  End If
End If

 

No lugar do CAMINHO você pode colocar uma variável que você alimenta com o caminho especifico de acordo com o o Tipo escolhido no formulário.

[Creedence 1]

Pedro, perfeito !

 

Atende exatamente o que preciso.

Muito obrigado pela orientação.

 

Creedence