Hi. Klappt alles soweit. Naja nicht wirklich alles, aber ist ja auch egal.
Ich hab jetzt ein anderes Problem. Mein Prog such ja Verzeichnisse nach
HTML-Dateien ab.
Klappt ja auch eigentlich. Mir ist aber aufgefallen das er nicht in Unsichtbaren ordner suchen kann, spirch in C:\Dokumente und Einstellungen\user\Lokale Einstellungen\Temporary Internet Files\.
Da der Ordner Lokale Einstellugen unsichtbar ist kann er folglich im Ordner Temporary Internet Files keine Dateien finden und das sind ja ne menge drin.
Hier die Such-Prozedur:
Delphi-Quellcode:
procedure GetFiles(const ADirectory: string; Files: TStrings;
SubFolders: Boolean);
// Hilfsfunktion, um Schrägstriche zu entfernen bzw. hinzuzfügen, wenn nötig
function SlashSep(const Path, S: string): string;
begin
if AnsiLastChar(Path)^ <> '\' then
Result := Path + '\' + S
else
Result := Path + S;
end;
var
SearchRec: TSearchRec;
nStatus: Integer;
begin
//Zuerst alle Dateien im aktuelle Verzeichnis finden
//Anstatt *.* kann auch etwas anderes wie *.jpg oder *.gif eingegeben werden,
//um nur Dateien eines bestimmten Typs zu finden.
nStatus := FindFirst(PChar(SlashSep(ADirectory, '*.html')), 0, SearchRec);
while nStatus = 0 do
begin
Files.Add(SlashSep(ADirectory, SearchRec.Name));
nStatus := FindNext(SearchRec);
end;
FindClose(SearchRec);
//Als nächstes nach Unterverzeichnissen suchen und wenn benötigt durchsuchen
if SubFolders then
begin
nStatus := FindFirst(PChar(SlashSep(ADirectory, '*.*')), faDirectory,
SearchRec);
while nStatus = 0 do
begin
//Wenn es ein Verzeichnis ist, Rekursion verwenden
if ((SearchRec.Attr and faDirectory) <> 0) then
begin
if ( (SearchRec.Name <> '.') and (SearchRec.Name <> '..') ) then
GetFiles(SlashSep(ADirectory, SearchRec.Name), Files, SubFolders);
end;
nStatus := FindNext(SearchRec)
end;
FindClose(SearchRec);
end;
end;
Wäre nett wenn mir jemand sagen könnte das das Programm auch unsichbare Ordner nach
HTML-Dateien scannen kann.
Danke!