Indentificar Carpeta o Archivo

[[Waldo]]

Hola A TODOS.

Necesito identificar cuando el findfirts encuentra una carpeta o un archivo, espero alguien me pueda clarar esta duda, saludos

[Ruben_Cu]

Hola Waldo, prueba colocar en el evento OnClick de un botón este procedimiento:

Código PHP:

procedure TForm1.Button1Click(Sender: TObject);
var archivo:TSearchRec;
begin
        if FindFirst(Edit1.Text,0, archivo)=0 then
                showmessage('Encontre el archivo '+archivo.Name)
                else showmessage('No encontre el archivo '+Edit1.Text);
                findclose(archivo);
end; 


En el edit1 colocas el path incluyendo el nombre del file.
La función devuelve cero cuando encuentra la primera coincidencia con las características del file dado.
Te recomiendo revises la ayuda de delphi para mas informacion de sobre la función.
Saludos

[[Waldo]]

Si eso si lo se.

Pero mi objetivo es identificar si es archivo o carpeta cuando el findfirs lo busca en el phath.

[delphi.com.ar]

El "campo" type Attr del record type TSearchRec te indica del tipo de archivo que se trata.

Saludos!

[Ruben_Cu]

Empezado por delphi.com.ar

El "campo" type Attr del record type TSearchRec te indica del tipo de archivo que se trata.

Lo que te señala delphi.com.ar está explicado en la ayuda de delphi para esta función, creo que debes revisarla.
Saludos