Datei suchen

[Rasmus Weigel]

Hallo!
Ich suche eine Möglichkeit, eine bestimmte Datei auf der Festplatte suchen zu lassen.

Z.B.:

function Dat_suchen(Zu_suchender_Dateiname:String;out Pfad_der_Datei:String):Boolean;

begin

...

end;

Wobei "Zu_suchender_Dateiname" nur den Dateinamen enthält.

Bis dann
rasmus

[Patrick Sack]

Hi,

<br>program psff;
<br>
<br>uses
<br> Forms,
<br> psffmain in 'psffmain.pas' {Form1};
<br>
<br>{$R *.RES}
<br>Var Dummy, Drive : String;
<br>
<br>begin
<br> Application.Initialize;
<br> Application.Run;
<br>
<br> If ParamCount >= 1 Then
<br> Begin
<br> GetDir (0,Drive);
<br> Dummy := FileFind32( Drive[1] + ':\',ParamStr(1));
<br> End
<br> Else
<br> Begin
<br> WriteLN('Bitte geben Sie Parameter an');
<br> writeln('Weiter mit Enter');
<br> readln;
<br> End;
<br>end

[Patrick Sack]

unit psffmain;
<br>
<br>interface
<br>
<br>uses
<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, <br>Dialogs;
<br>
<br>type
<br> TForm1 = class(TForm)
<br> private
<br> { Private-Deklarationen }
<br> public
<br> { Public-Deklarationen }
<br> end;
<br>
<br>var
<br> Form1: TForm1;
<br>
<br>
<br>Function FileFind32( PathString, SearchString : String) : String;
<br>
<br>implementation
<br>{$R *.DFM}
<br>
<br>Function WriteFiles(PathString, SearchString : String) : String;
<br>var
<br> SearchRec : TSearchRec;
<br> i : Integer;
<br> Dummy : String;
<br>Begin
<br> i := FindFirst(PathString + SearchString, faAnyfile, SearchRec);
<br> while i = 0 do
<br> Begin
<br> WriteLN(PathString + SearchRec.Name);
<br>
<br> i := FindNext(SearchRec);
<br> End;
<br>
<br> FindClose(SearchRec);
<br>
<br> {FileFind32 := 'Hurra';}
<br>end;
<br>
<br>Function FileFind32( PathString, SearchString : String) : String;
<br>var
<br> SearchRec : TSearchRec;
<br> i : Integer;
<br> Dummy : String;
<br>Begin
<br> i := FindFirst(PathString + '*.*', faDirectory, SearchRec);
<br> while i = 0 do
<br> Begin
<br> If (SearchRec.Name <> '.') and (SearchRec.Name <> '..') Then
<br> {WriteLN('Directory: ', SearchRec.Name)}
<br> Dummy := FileFind32( PathString + SearchRec.Name + '\', SearchString);
<br>
<br> i := FindNext(SearchRec);
<br> End;
<br> Dummy := WriteFiles( PathString, SearchString);
<br> FindClose(SearchRec);
<br>
<br>
<br>end;
<br>end.
<br>
<br>mfg
<br>P

[Rasmus Weigel]

Danke.
Ich habe es jetzt fast so wie der letzte Beitrag. Es klappt.
Bis dann.

rasmu