fil navne i combobox

Wee hele 5 point .. nå du får nu koden alligevel :)

-----------------------------

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure Finddir(dir:string);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

Procedure Tform1.Finddir(dir:string);
var
  SearchRec: TSearchRec;
begin
  If Copy(dir,Length(dir),1)<>\'\\\' then dir:=dir+\'\\\';
  IF not DirectoryExists(dir) then begin
  showmessage(\'Directory \"\'+dir+\'\" does not exist!\');
  exit;
  end;
  If FindFirst(dir+\'*.*\', faAnyFile, SearchRec)=0 Then
  Repeat
    If SearchRec.Attr=faDirectory Then begin
      If (SearchRec.Name=\'.\')or(SearchRec.Name=\'..\') then Continue;
      //loop through subdirs
      FindDir(dir+SearchRec.Name);
    end else begin
      if Extractfileext(dir+SearchRec.Name)=\'.dat\' then
        combobox1.Items.Add(dir+SearchRec.Name);
    end;
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
finddir(\'C:\\Windows\');
end;

ved du hvad ...???
jeg har sgu ikke mere så...
men jeg takker for gavmildheden :-)
så må du også få en kopi af programmet når det er færdigt

hehe, du skulle vel ikke tilfældigvis befinde dig på IRC Undernet også ? Eller er det mon en anden Dexter .. ? :)

jeg tror det er en anden dexter
der er mange af os ;=))
takker en gang til for koden

ok, og det var så lidt ;)

ok har tjekket koden den virker
så nu kan jeg sove trygt her til nats når jeg er færdig med prog´et

credit mig i dit proggy, hvis det bliver sejt, heh :)

s´følig
som second code develop
det er da en fin titel ik´
ps.
det er et backup program til diablo2
bare så du ved hvad du har lagt navn til

hehe, ovenstående kode har jeg vist allerede givet til et par stykker der er igang med at lave det samme hehe :)

uhh så må jeg jo skynde mig at få den færdig
:-))