XelUpload y PDF

[Bluesman74cl]

Estimados estoy haciendo unh Upload con XelUpload...

esta linea verifica si yo traigo una imagen

Código:

if objFich.TipoContenido = "image/gif" then

pero cómo le valido si es un PDF?



Gracias

[sjam7]

puedes hacerlo usando la extencion del archivo en lugar del tipo de archivo (MIME) algo asi:

Código:

set objFich = objUpload.Ficheros("foto")
ExtPermitidas = "|jpg|jpeg|gif|png|"
NombreFichero = Split(objFich.Nombre, ".")
Extension = lcase(NombreFichero(1))

if objUpload.Ficheros.Count <> 0 then

	set objFich = objUpload.Ficheros("foto")
'	if objFich.Tamano <= maxtam and objFich.TipoContenido = ("image/gif") or objFich.tipoContenido = ("image/jpeg") or objFich.TipoContenido = ("image/pjpeg") or objFich.tipoContenido = ("image/png") or objFich.tipoContenido = ("image/x-png") then
'	if objFich.Tamano <= maxtam then
	if InStr(ExtPermitidas, "|" & Extension & "|") > 0 then

Es decir, cambia el If que viene por defecto y pon este:
if InStr(ExtPermitidas, "|" & Extension & "|") > 0 then

Usando la parte que te pongo arriba, solo agrega la extencion pdf o cambia las que estan por las que quieras que se permitan

saludos y suerte