19/03/2003, 05:19
|
 | | | Fecha de Ingreso: marzo-2003 Ubicación: Eibar (Gipuzkoa)
Mensajes: 455
Antigüedad: 22 años, 2 meses Puntos: 2 | |
| Te falta cerrar el if en la función validaExt...
function validaExt (filename)
dim ext,matriz,i,temp,found
temp=filename
matriz=split("gif,jpg,jpeg,png,bmp",chr(44))
filename=lcase(filename)
ext=right(filename,len(filename)-InStrRev(filename,"."))
for i=0 to ubound(matriz)
if ext=matriz(i) then
found=1
exit for
end if
next
if found then
validaExt=temp
else
validaExt=""
END IF
end function
__________________
¿Por qué Uri Geller doblaba cucharas? |