filtri upload di baol

[Yuppies]

Buongiorno a tutti

Sto usando lo script upload di baol per caricare dei documenti on-line da form
attualmente ho impostato il seguente comando

oUpload.Filter = oUpload.FilterImage()

affinchè possano essere caricate le sole immagini.

Ma se volessi consentire il solo caricamento di pdf, doc, xls, txt sapreste dirmi come applicare il filtro giusto?

grazie 1000

[Santino83_02]

allora, questi sono i filtri che supporta l'upload:

Public Sub UploadOnly(sToFilter)
			Select Case lCase(sToFilter)
				Case "images","image"	:Files.Filter = FilterImage()
				Case "audio"			:Files.Filter = FilterAudio()
				Case "application"		:Files.Filter = FilterApplication()
				Case "text"				:Files.Filter = FilterText()
				Case "video"			:Files.Filter = FilterVideo()
				Case "zip"				:Files.Filter = "ContentType like 'application/x-zip-compressed'"
			end Select
		end sub
	
		public function FilterContentType(sMime,sType)
			FilterContentType = "([ContentType] like '"& sMime & "/" & sType &"')"
		end function
	
		Public function FilterImageSize(Height,Width)
			FilterImageSize =  FilterImage() & " AND ([Height]" & Height & " and [width]" & Width & ")"
		end function
	
		Public function FilterSize(MaxSize)
			FilterSize = "([SIZE]<" & MaxSize &")"
		end function
	
		Public Function FilterImage()
			FilterImage = FilterContentType("image","*")
		End Function
	
		Public Function FilterAudio()
			FilterAudio = FilterContentType("audio","*")
		End Function
	
		Public Function FilterApplication()
			FilterApplication = FilterContentType("application","*")
		End Function
	
		Public Function FilterText()
			FilterText = FilterContentType("text","*")
		End Function
	
		Public Function FilterVideo()
			FilterVideo = FilterContentType("video","*")
		End Function

visto che non ho trovato altri riferimenti di filtri, o ti affidi a questi, oppure fai l'upload, controlli l'estensione del file mediante oUpload.Files("ext"), se è consentito fai il save, altrimenti dai l'errore.

[Yuppies]

Grazie per la risposta Santino ma non è che potresti farmi un piccolo esempio di come utilizzare oUpload.Files("ext")?

[Santino83_02]

Originariamente inviato da Yuppies
Grazie per la risposta Santino ma non è che potresti farmi un piccolo esempio di come utilizzare oUpload.Files("ext")?

oUpload.Files("ext") ti da l'estensione del file, ad esempio jpg se era .jpg, JPG se era .jpg etc etc fai tipo

validExt = array("doc","xls","jpg","jpeg")
isValid =false

for each ext in validExt

if lcase(oUpload.files("ext")) = ext then isValid = true

next

if isValid then
 'salvo il file
end if

[Yuppies]

1000 grazie santino provo subito il funzionamento

[Yuppies]

grazie santino dopo vari tentativi e svariati errori, ora funziona tutto alla perfezione