Cita:
Empezado por Ohcan
pero he tendio que modificarla:
if (ExtractFileExt(Ruta)<>'') and //para que no tenga en cuenta las carpetas
(Pos(UpperCase(ExtractFileExt(Ruta)) + '?', '.GIF?.BMP?.JPG?')<>0) then
|
Cierto, no cubría el caso de extensiones vacías, aunque creo que esto debe funcionar:
Código Delphi
[-]
if Pos('*' + Uppercase(ExtractFileExt(Ruta)) + '?', '*.GIF?*.BMP?*.JPG?') <> 0 then
// Saludos