[Resolvido] Input file

[peedrow!! 0]

Olá pessoal

 

Estou fazendo um sistema de upload com o componente ASPUpload.

Está tudo funcionando eu só tenho 2 dúvidas

1' -Existe alguma forma de pegar o nome do arquivo do input file(para poder trabalhar com a imagem na hora de fazer o redmensionamento)

2 - Existe alguma forma de modificar o nome da imagem andes de salva-lá?

 

 

Desde já agradeço! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

código:

		Function Trocar_Imagem()
			caminho = Request.ServerVariables("APPL_PHYSICAL_PATH")
			pasta_nome = "projeto\upload_teste\imagens_user_id_=_"&auxiliar(Session("Usuario_id"))
			Set objFSO = Server.CreateObject("Scripting.FileSystemObject")	
			Set objUpload = Server.CreateObject("Persits.Upload")
			Set objJpeg = Server.CreateObject("Persits.Jpeg")
			Set Sql_Caminho = Server.CreateObject("ADODB.Command")
			caminho_final = caminho&pasta_nome

			
				If Request.QueryString("trade_image") = "tradeit" Then
				
					If not objFSO.FolderExists(caminho_final) = True Then
						set objFolder = objFSO.CreateFolder(caminho_final)		
							objUpload.Save(caminho_final)
							objJpeg.Open(caminho_final&"\trancada.jpg")
									Largura = 96
									objJpeg.Width = Largura
									ObjJpeg.Height = Jpeg.OriginalHeight * Largura / Jpeg.OriginalWidth	
									objJpeg.Save(caminho_final&"\thumb_"&Session("Usuario_id"))
							Else
								objUpload.Save(caminho_final)
								objJpeg.Open(caminho_final&"\trancada.jpg")
									Largura = 96
									objJpeg.Width = Largura
							ObjJpeg.Height = objJpeg.OriginalHeight * Largura /objJpeg.OriginalWidth	
									objJpeg.Save(caminho_final&"\thumb_"&Session("Usuario_id")&".jpg")
					End If
				
				End If

		End Function

[hargon 64]

É possível fazer tudo isso sim.

 

Dê uma olhada no manual.

 

Qualquer dúvida poste aqui.

[peedrow!! 0]

Beleza cara ja consegui recuperar o valor do nome da imagem, só n consegui modificar ela

mas como vou usar o ASPJpeg pra criar o thunbnail q vai c o caminho q ficara gravado no banco axo q n tera problema algum

 

 

VLW! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[hargon 64]

Bacana. Sobre renomear você pode usar o File.SaveAs caminhoNovaImagem. Logo após você utiliza File.Delete (lembrando que para fazer dessa forma terá que está utilizando dentro do For

 

Qualquer dúvida poste aqui, que "reabrimos" o tópico.