[Resolvido] jogar imagens selecionadas na pasta

[rafa-martin 2]

pessoal estou usando o aspjpeg para rediemnsionar a imagem e jogar para uma pasta. o problema é que, eu posso selecionar mais de uma imagem. quando eu faço o upload eu preciso jogar as imagens numa pasta. acontece que se seleciono duas imagens, só está indo a última imagem que selecionei para a pasta. tem que ir as duas ou todas que eu seleciono.

 

como farei isso? como posso usar o while ou o for para fazer isso? meu código de upload e redimensionamento está abaixo:

 

<%
	Set Upload = Server.CreateObject("Persits.Upload")
	Set jpg = Server.CreateObject("Persits.Jpeg")
	
	Upload.OverwriteFiles = False
	Upload.SetMaxSize 5000000, True
	Upload.CodePage = 65001
	
	'salva o arquivo selecionado na pasta especifica
	'Count = Upload.Save("C:\scripts\ASP")
	Count = Upload.Save(Server.MapPath("Images"))
	
	If Err <> 0 or Count = 0 Then
		Response.Write "erro"
	else
		Set File = Upload.Files(2)
		If File.ImageType = "UNKNOWN" Then
			File.Delete
		else
			'pega o local do arquivo, já colocado no diretório		
			Path = Server.HtmlEncode(File.Path)
				
			if File.ImageType = "TIF" Then
				Set Tiff = Server.CreateObject("Persits.Jpeg")
				Tiff.Open File.Path
				ImageWidth = Tiff.OriginalWidth				
				ImageHeight = Tiff.OriginalHeight
				Tiff.Close
			Else
				jpg.Open Path

				Height = "200"
				Width = "300"

				jpg.Width = Width
				jpg.Height = Height

				[b]'aqui é onde eu preciso joga na pasta, todas as imagens q ue fiz o upload.[/b]
				jpg.Save (Server.MapPath("Grande") & "\" & File.ExtractFileName)
			End if
		end if
	end if
	
	set Upload = nothing
	set jpg = nothing
%>

[rafa-martin 2]

consegui. eu li os arquivos q está pasta imagens e depois jogo eles com os tamanhos diferentes na pasta

 

for each arquivos in arquivo
		
			If File.ImageType = "UNKNOWN" Then
				File.Delete
			else
				'pega o local do arquivo, já colocado no diretório		
				Path = Server.HtmlEncode(File.Path)
				
				jpg.Open Path

				Height = "200"
				Width = "300"

				jpg.Width = Width
				jpg.Height = Height
				
				Response.Write arquivos.Name & "<br>"

				'joga o arquivo já com o tamanho alterado
				'jpg.Save(Server.MapPath("Grande") & "\" & File.ExtractFileName)
				jpg.Save(Server.MapPath("Grande") & "\" & arquivos.Name)
			end if
		next