Upload novamente

[marciolvs 1]

Tive uma problema, quando envio apenas 1 arquivo ele ´dá um erro.

Assim criei um IF para se for vazio a var vai como vazio

 

Upload.OverwriteFiles = False
        pasta = Server.MapPath("documentos/")
        Upload.Save pasta
                
                ' Recuperando os Dados Digitados ----------------------
                De = Upload.Form("txtde")
                Para = Upload.Form("txtpara")
                VPasta = Upload.Form("Categorias")
                VsubPasta = Upload.Form("SubCategs")
                Assunto = Upload.Form("txtassunto")
                Data = date
                hora = time

                Set Arquivo1 = Upload.Files("txtarquivo")
                Set Arquivo2 = Upload.Files("txtarquivo2")
                Set Arquivo3 = Upload.Files("txtarquivo3")
                Set Arquivo4 = Upload.Files("txtarquivo4")      
        
        IF Arquivo1 = "" Then
                varquivo = ""
        ELSE
                varquivo = Arquivo1.FileName
        End IF
        
        IF Arquivo2 = "" Then
                varquivo2 = ""
        ELSE
                varquivo2 = Arquivo2.FileName           
        End IF
        
        IF Arquivo3 = "" Then
                varquivo3 = ""
        ELSE
                varquivo3 = Arquivo3.FileName
        End IF

 

Mas ele me dá o erro

 

Erro de tempo de execução do Microsoft VBScript erro '800a01b6'

 

O objeto não dá suporte para a propriedade ou método

 

/sistema_v4.1/upload_doc.asp, line 25

 

 

Pode dar uma mão ai ?

[jrcardozo 4]

acho que se você fizer um FOR EACH deixando os names iguais resolve seu problema. No manual do componente tem exemplo de como fazer o For Each

[marciolvs 1]

acho que se você fizer um FOR EACH deixando os names iguais resolve seu problema. No manual do componente tem exemplo de como fazer o For Each

 

 

Não pode ser nomes iguais, preciso que seja cada um com seu nome.

testei

		Set Arquivo1 = Upload.Files("txtarquivo")
		Set Arquivo2 = Upload.Files("txtarquivo2")
		Set Arquivo3 = Upload.Files("txtarquivo3")
		Set Arquivo4 = Upload.Files("txtarquivo4")	
	
	For Each File in Upload.Files
		Arquivo1 = File.FileName
	Next 
	
	For Each File in Upload.Files
		Arquivo2 = File.FileName
	Next 
	
	For Each File in Upload.Files
		Arquivo3 = File.FileName
	Next 
	
	For Each File in Upload.Files
		Arquivo4 = File.FileName
	Next 

Realmente todos ficou com o mesmo nome, isso não dá certo para o projeto.