Datei suchen

[Alex Weth]

Hallo, <br>
ich möchte meine Festplatte nach einer bestimmten Datei <br> durchsuchen. Bis jetzt habe ich aber nur Funktionen <br>
gefunden, die mir anzeigen ob die Datei in einem Dir., das ich <br> angeben muß, existiert. <br>
Ich kenne das Directory aber nicht. <br>
Kann mir jemand helfen? <br>
Vielen Dank!!! <br>
Alex Weth

[Thomas Melchert]

<p>
Hallo Alex,<br>
<br>
mit FindFirst, FindNext und FindClose.
<br>
Gruß Thomas</p&gt

[Günther Weber]

Hallo, die WIN32 API-Funktion SearchTreeForFile scheint genau das richtige zu sein. Hab aber selbst noch nie damit gearbeitet

[Alex Weth]

Danke Thomas und Guenther, <br>
Hab aber trotzdem noch Fragen: <br>
1: Wie muß ich bei FindFirst den Pfad angeben, daß er mir die <br>
ganze Festplatte nach der Datei durchsucht (besser noch ) <br>
das Ganze Netzwerk) ? '\datei.xyz' ?? <br>
2: Die WIN32-API Funktion 'SearchTreeForFile' kann ich <br>
nirgends finden <br>

Gruß Ale

[Thomas Melchert]

<p>
Hallo Alex,<br>
<br>
anbei ein kleines Beispiel für die Function SearchTreeForFile<br>
<br>
procedure TSDIAppForm.Button1Click(Sender: TObject);<br>
var buf:Array[0..255] Of Char;<br>
begin<br>
If SearchTreeForFile('R:\', 'datei.xyz', buf) Then Label1.Caption:=buf; <br>
end;<br>
<br>
Damit Du SearchTreeForFile benutzen kannst, musst Du im Uses-Abschnitt<br>
noch <b>Imagehlp</b> angeben.<br>
<br>
Der Grund, warum Du keine Hilfe findest, liegt am besch... Hilfesystem von Delphi.<br>
Du musst die Win32-API-Hilfe separat aufrufen, dann bekommst Du auch<br>
die benötigten Infos's.<br>
<br>
Ich hoffe, ich konnte helfen<br>
Gruß Thomas<br>
</p&gt

[Thomas Melchert]

<p>
Hallo Günther,<br>
<br>
bisher kannte ich "SearchTreeForFile" auch noch nicht. Man lernt halt nie aus.<br>
Ich habe die Funktion getestet. Sie funktioniert einwandfrei.<br>
<br>
Gruß Thomas<br>
</p&gt

[Günther Weber]

Hallo, ich hab sie gestern auch nur durch Zufall beim Stöbern in der Hilfe gefunden :-)

Beim C++ Builder 4.0 kann man übrigens die WIN-API Hilfe in die Toolbar mit aufnehme

[Alex Weth]

Dank' Euch, <br>
funktioniert einwandfrei!!! <br>
Die Funktion habe ich aber trotzdem nirgends in der sch.. Hilfe <br>
finden können (win32.hlp, mapi.hlp, delphi.hlp,..). <br>
Aber es funkt ja! <br>
Also nochmal vielen Dank! <br>

Ale

[markus lemcke]

warum wollte ihr alle das rad neu erfinden?? im forum kommt ein code mit dem man den windowsdateisuch-
dialog aufrufen kann. ich hab e ihn schon getestet er tut!!!

hier:

Hallo,

das folgende Beispiel sollte den gesuchten Dialog "hervorzaubern":


uses ShellAPI, ShlObj;
procedure TForm1.Button1Click(Sender: TObject);
var
aSEI : TShellExecuteInfo;
begin
ZeroMemory(@aSEI, sizeof(aSEI));
with aSEI do
begin
cbSize := SizeOf(aSEI);
fMask := SEE_MASK_INVOKEIDLIST;
lpVerb := 'find';
lpFile := PChar('C:\');
end;
ShellExecuteEx(@aSEI);
end;

mfg

markus lemck

[Thomas Melchert]

<p>
Hallo Markus,<br>
<br>
dass hat mit "Rad neu erfinden" nicht's zu tun.<br>
Wenn ich zur Laufzeit feststellen will, ob eine bestimmte Datei<br>
existiert, benötige ich dazu u.U. keinen "Suchen-Dialog"!!<br>
<br>
Zum Schluß: Wenn Du schon Routinen veröffentlichst, achte bitte<br>
darauf, dass Du allgemeingültige Methoden verwendest. "ZeroMemory"<br>
ist keine (Standard-)Delphi-Methode.<br>
<br>
Gruß Thomas<br></p&gt

[markus lemcke]

tag thomas,

der code ist nicht von mir, der stand schon an andere stelle im forum!!!!!!
ich habe ihn nur kopiert!!!

mfg

marku