saber si es directorio o archivo

[roman]

Otra opción:

Código Delphi [-]
var
  Attributes: Cardinal;

begin
  Attributes := GetFileAttrributes('archidir');

  if Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0 then
    ShowMessage('Es un directorio')
  else
    ShowMessage('No es un directorio');
end;

// Saludos

[rob1]

gracias me convenze la de roman pero voy a probar despues les cuento

[rob1]

es funcion no me funciono :S pero gracias dec(David esperalta)... una respuesta sencilla pero eficaz..

[roman]

Empezado por rob1

es funcion no me funciono :S

Sería interesante que mencionaras el porqué ya que acabo de probarla y funciona perfectamente.

// Saludos