upload if...

[jartuf]

Ciao gente,
ho un sist di upload strano che necessita di un aggiustamento:

Uploader.Upload()
		If Uploader.Files.Count = 0 Then
			' Nessun file inserito
			pathfile = "http://www.uvstv.org/immagini/icone/spacer.gif"
			pathfile2 = "http://www.uvstv.org/immagini/icone/rtf_no.gif"
			pathfile3 = "http://www.uvstv.org/immagini/icone/pdf_no.gif"

			
		Else
			Uploader.Files("pathfile").SaveToDisk Server.MapPath("/public/foto/cinema/nati_ieri/")
			Uploader.Files("pathfile2").SaveToDisk Server.MapPath("/public/rtf/cinema/nati_ieri/")
			Uploader.Files("pathfile3").SaveToDisk Server.MapPath("/public/pdf/cinema/nati_ieri/")

			pathfile = "/public/foto/cinema/nati_ieri/" & Uploader.Files("pathfile").FileName
			pathfile2 = "/public/rtf/cinema/nati_ieri/" & Uploader.Files("pathfile2").FileName
			pathfile3 = "/public/pdf/cinema/nati_ieri/" & Uploader.Files("pathfile3").FileName
			
			

		End if

Con questa if, funzionante, mi carica tutti e tre i file.
Però se ad es. carico uno o 2 file, l'if da errore

Microsoft VBScript runtime error '800a01a8' 

Object required: 'Files(...)'

mi aiutate gentilmente? altrimenti dovrei fare tre pagine con una scelta a priori...che barba!

ciao e grazie!

[orcim]

devi decidere quanti files devi caricare contemporanemente ed includere un ciclo.

[jartuf]

Umh..pensavo si potesse modificare invece l'If. Per il ciclo mi daresti qualche suggerimento please?

[orcim]

orientativamente puoi utilizzare un codice del tipo:

Dim FileField
  For Each FileField in Form.Files.Items
    'Per ogni file inviato in upload
    if len(FileField.FileName)> 0 then 
      Dim DestinationFileName

      DestinationFileName = ServerMapPath....

      'Scrittura sulla cartella prescelta
      FileField.SaveAs DestinationFileName