hallo leute,
dank dem forum habe ich bisher folgende funktion genutzt, um in meine checklistbox nach auswahl eines ordners alle html-dateien des jeweiligen ordners aufzulisten.
<br><br>
<pre>
function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist;
var SRec: TSearchRec;
SL: TStringList;
begin
SL := TStringList.Create;
FindFirst(Path + Mask, not faDirectory, SRec);
if ShowPath then
SL.Add(Path + SRec.Name)
else
SL.Add(SRec.Name);
while FindNext(SRec) = 0 do
if ShowPath then
SL.Add(Path + SRec.Name)
else
SL.Add(SRec.Name);
FindClose(SRec);
Result := SL;
end;
</pre>
<b>nun meine fragen und probleme:</b>
<li>wenn in dem ausgewählten ordner keine html-dateien sind, listet die checklistbox den ordner selbst auf. das will ich aber nicht. (unter Win NT ist das problem schlimmer, denn da komme ich erst aus dem form wieder raus, wenn ich einen ordner habe,in dem sich html-dateien befinden)
<li>ich möchte gern noch eine zusätzliche checkbox einbinden bei der der user entscheiden kann, ober er alle folgenden unterordner mit durchsuchen will und die gefundenen dateien auch mit auflisten.
<br><br>
danke für eure mithilfe
<br><br>
tom
dank dem forum habe ich bisher folgende funktion genutzt, um in meine checklistbox nach auswahl eines ordners alle html-dateien des jeweiligen ordners aufzulisten.
<br><br>
<pre>
function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist;
var SRec: TSearchRec;
SL: TStringList;
begin
SL := TStringList.Create;
FindFirst(Path + Mask, not faDirectory, SRec);
if ShowPath then
SL.Add(Path + SRec.Name)
else
SL.Add(SRec.Name);
while FindNext(SRec) = 0 do
if ShowPath then
SL.Add(Path + SRec.Name)
else
SL.Add(SRec.Name);
FindClose(SRec);
Result := SL;
end;
</pre>
<b>nun meine fragen und probleme:</b>
<li>wenn in dem ausgewählten ordner keine html-dateien sind, listet die checklistbox den ordner selbst auf. das will ich aber nicht. (unter Win NT ist das problem schlimmer, denn da komme ich erst aus dem form wieder raus, wenn ich einen ordner habe,in dem sich html-dateien befinden)
<li>ich möchte gern noch eine zusätzliche checkbox einbinden bei der der user entscheiden kann, ober er alle folgenden unterordner mit durchsuchen will und die gefundenen dateien auch mit auflisten.
<br><br>
danke für eure mithilfe
<br><br>
tom
Comment