PDA

Ver la Versión Completa : Indentificar Carpeta o Archivo


Waldo
12-07-2004, 01:24:44
Hola A TODOS.

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

Ruben_Cu
12-07-2004, 04:42:52
Hola Waldo, prueba colocar en el evento OnClick de un botón este procedimiento:
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
12-07-2004, 05:49:16
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
12-07-2004, 15:41:02
El "campo" type Attr del record type TSearchRec te indica del tipo de archivo que se trata.

Saludos!

Ruben_Cu
12-07-2004, 19:43:18
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