Announcement

**Bernhard Berger** · 02.03.2000, 14:51

Wenn du bereits den kompletten Pfad der Datei weisst, kannst du mit der SysUtils-Routine FileExists überprüfen, ob die Datei existiert. Die Funktion liefert True, wenn die Datei existiert, False, wenn sie nicht vorhanden ist.

Wenn der Pfad der Datei unbekannt ist, musst du alle Verzeichnisse rekursiv mit den Sysutils-Routinen FindFirst, FindNext und FindClose nach der Datei durchsuchen. Code-Beispiele findest du u.a. in der Delphi-Hilfe.

Folgende Web-Seiten behandeln direkt das Suchen von Dateien mit FindFirst/FindNext usw:
http://www.obsti.se/delphiexchange/oracle/q0002.html
http://www.q3.nu/trucomania/truco.cgi?158&ing

Gruß, 
Bernhar

**Thomas Melchert** · 02.03.2000, 15:09

Hallo Rainer, 
 
um Dateien in Verzeichnissen zu suchen, kannst Du die API-Funktion FindFileInTree benutzen. Damit sparst Du dir die rekursive Suche. 
 
Gruß Thomas </p&gt

**Bernhard Berger** · 03.03.2000, 09:35

Hm, *wunder, wunder*, von einer FindFileInTree-Funktion habe ich noch nie gehört, obwohl sie recht praktisch wäre. Ich kann diese Funktion auch nirgends finden..

**Thomas Melchert** · 03.03.2000, 23:30

Hallo, 
 
die Funktion ist in der Win32-Api-Hilfe dokumentiert. 
Das Delphi-Hilfesystem funktioniert bei Api-Funktionen oft nicht. 
Unter "Symbolleisten - Anpassen - Hilfe" gibt es die Anweisung "Windows-API". 
Die Datei "win32.hlp" befindet sich im Verzeichnis 
"c:\programme\gemeinsame dateien\borland shared\mshelp\" 
 
Gruß Thomas </p&gt

**Thomas Melchert** · 03.03.2000, 23:33

Hallo nochmal, 
 
folgend der Auszug zur Funktion aus der Win-Api-Hilfe:

<pre>
FindFileInTree
--------------

LPSTR FindFileInTree(LPSTR szFile, LPSTR szDir, LPSTR szBuf, int cbBuf);

FindFileInTree searches for the specified file in a directory and its subdirectories.

Arguments

szFile: Specifies the name of the file you are trying to locate.

szDir : Specifies the top-level directory of the tree structure you want to search.

szBuf : Points to the destination buffer that will receive the path string.

cbBuf : Length, in bytes, of the destination buffer.

Return Value

The return value is the full path of the first instance of the file. If the file isn't found, the return value is an empty string.
</pre>
 
Gruß Thomas </p&gt

**Thomas Melchert** · 03.03.2000, 23:34

Hallo nochmal, 
 
folgend der Auszug zur Funktion aus der Win-Api-Hilfe:
<pre>
FindFileInTree
--------------

LPSTR FindFileInTree(LPSTR szFile, LPSTR szDir, LPSTR szBuf, int cbBuf);

FindFileInTree searches for the specified file in a directory and its subdirectories.

Arguments

szFile: Specifies the name of the file you are trying to locate.

szDir : Specifies the top-level directory of the tree structure you want to search.

szBuf : Points to the destination buffer that will receive the path string.

cbBuf : Length, in bytes, of the destination buffer.

Return Value

The return value is the full path of the first instance of the file. If the file isn't found, the return value is an empty string.
</pre>
 
Gruß Thomas </p&gt

**Jens Schumann** · 01.08.2001, 12:39

Hallo Thomas, die Funktion ist zwar dokumentiert, wird aber von Borland nicht importiert. D.h. selber importieren. Nur weiß ich nicht in welcher dll ich nach FindFileInTree suchen soll. :-) Jens Schuman

**Jörg Prepadnik** · 14.08.2001, 12:38

Der Aufruf FindFileInTree ist kein API-Aufruf. 
Es handelt sich also um einen Fehler der API-Hilfe. 
Im MSDN wird er noch nicht mal erwähnt. 
Zu finden ist er in der Datei MSSETUP.DLL im MS Visual Studio. 
Den Aufruf habe ich aber bisher nicht realisieren können.<br&gt

**Christian Seehase** · 14.08.2001, 15:47

Hallo Zusammen, 
 
für FindFileInTree ist in der Header Datei MSDetect.H deklariert, und soll sich 
in der DLL MSDETSTF.DLL befinden 
(siehe Include Files im SDK). 
Zumindest war das die einzige Stelle wo ich es finden konnte. 
Die MSSETUP.DLL (Version 3.01) konnte ich im Verzeichis: 
C:\Programme\Internet Explorer\Setup 
wer einen IE 5 hat, sollte sie also eigentlich haben. 
Die Funktion ist übrigens falsch Dokumentiert. 
Der Rückgabewert ist die Länge des in den Buffer kopierten Pfades (ohne die Null am Ende). 
 
Ich habe die MSSETUP.DLL mal ins SYSTEM32 kopiert, und mit folgendem Source funktioniert's. 
(jedenfalls bei mir, D5 pro SP1) 
 
<pre>
unit MAIN;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

Function FindFileInTree(Const szFile : PChar;
Const szDir : PChar;
Const szBuf : PChar;
Const cbBuf : Integer
): LongInt;
stdCall;external 'MSSETUP.DLL' name 'FindFileInTree';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

Var
sBuffer : String;
sFileName : String;
sRoot : String;
lCount : LongInt;

begin
sBuffer := StringOfChar(#00,MAX_PATH+1); // Speicherplatz reservieren
sFileName := 'MSSETUP.DLL'; // Nach dieser Datei suchen,
sRoot := 'C:\WINNT'; // und zwar ab hier
lCount := FindFileInTree( // Und los geht's
PChar(sFileName), // Gesuchte Datei
PChar(sRoot), // ab hier suchen
PChar(sBuffer), // hier wird das Ergebnis abgelegt
MAX_PATH); // Soviel Platz steht für das Ergebnis zur Verfügung
ShowMessage(Trim(sBuffer));
ShowMessage(IntToStr(lCount));
end;

end.
</pre>
 
Ciao 
Chri

**Hagen Reddmann** · 15.08.2001, 10:42

Hi 

man kann diese vielen Unwägbarkeiten umgehen, indem man selber diese Funktion in Delphi nachbildet. Diese dürfte nicht langsammer sein als diese "API-Funktion" !

<html>
<head>
<title>Untitled</title>
</head>

<body text="#000000" bgcolor="#D0D0D0">
<pre>
<code>function FindFileInTree(const Path, FileName: String): String;

function FindRecursive(const Path, FileName: String): String;
var
SR: TSearchRec;
begin
if FindFirst(Path + FileName, faAnyFile, SR) = 0 then
begin
Result := Path + SR.Name;
FindClose(SR);
end else
begin
Result := '';
if FindFirst(Path + '*.*', faDirectory or faHidden or faSysFile, SR) = 0 then
begin
repeat
if (SR.Attr and faDirectory <> 0) and
(SR.Name <> '.') and (SR.Name <> '..') then
Result := FindRecursive(Path + SR.Name + '\', FileName);
until (Result <> '') or (FindNext(SR) <> 0);
FindClose(SR);
end;
end;
end;

begin
Result := FindRecursive(Path + '\', FileName);
end;


</code></pre>
</body>
</html>

Hage

**Hagen Reddmann** · 15.08.2001, 10:43

um mit Wildcards mehrere Dateien zu finden geht auch das: 

<html>
<head>
<title>Untitled</title>
</head>

<body text="#000000" bgcolor="#D0D0D0">
<pre>
<code>procedure FindFilesInTree(Files: TStrings; const Path, FileName: String);

procedure FindRecursive(Files: TStrings; const Path, FileName: String);
var
SR: TSearchRec;
begin
if FindFirst(Path + FileName, faAnyFile, SR) = 0 then
begin
repeat
if SR.Attr and (faDirectory or faVolumeID) = 0 then
Files.Add(Path + SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
end;
if FindFirst(Path + '*.*', faDirectory or faHidden or faSysFile, SR) = 0 then
begin
repeat
if (SR.Attr and faDirectory <> 0) and
(SR.Name <> '.') and (SR.Name <> '..') then
FindRecursive(Files, Path + SR.Name + '\', FileName);
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;

begin
if Files <> nil then
begin
Files.BeginUpdate;
try
FindRecursive(Files, Path + '\', FileName);
finally
Files.EndUpdate;
end;
end;
end;


</code></pre>
</body>
</html&gt

Announcement

Schnelle Dateisuche auf Datenträger

Schnelle Dateisuche auf Datenträger

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment