none
Fazer upload de arquivos de campos "pulados" RRS feed

  • Pergunta

  • Olá a todos... a questão é o seguinte... o cliente faz o upload de 4 imagens e 1 video, que fica no 5 campo. Na hora de salvar é tranquilo, mas na hora que ele quiser trocar uma das fotos eu estou tento problema pois não estou sabendo identificar quais campos devem ser subistituidos. Exemplo: ele quer trocar a segunda e a quarta imagem (campo "arq2" e "arq4", por exemplo) mas no upload acaba substituindo a primeira e segunda imagem, justamente porque não consigo identificar que é a imagem 2 e 4 que ele que substituir. Eu jogo esse valor para um vetor que depois salva o nome do arquivo no bd. Alguém pode me ajudar?

    Veja o código:

    	'-------------------------------------------------------------------'
    	'CODIGO PARA UPLOAD DE ARQUIVOS - COMPONENTE ASPUPLOAD
    	'SE DER ERRO ELE ENVIA UMA MENSAGEM PARA O E-MAIL CADASTRADO
    	Set Upload = Server.CreateObject("Persits.Upload.1") 'INICIALIZO O COMPONENTE
    	Upload.OverwriteFiles = False
    	
    	Upload.Save "c:\domains\md.com.br\wwwroot\upload"
    
    
    	'CRIO UM VETOR PARA GUARDAR O NOME DO ARQUIVO
    	Dim x(6)
    	a = 0
    
    	For Each File In Upload.Files
    		If Not File Is Nothing Then
    			If ucase(File.Ext) <> ".JPG" then a = 5
    			x(a) = File.FileName
    			a = a + 1
    		End If
    	Next
    	On Error Resume Next
    
    sexta-feira, 18 de setembro de 2009 20:00