klasördeki dosya isimlerini db ye yazma

[dcpromo]

merhaba arkadaşlar ben bir klasörün içindeki dosya isimlerini db ye yazmak istiyorum nasıl yapabilirim yardımcı olursanız sevinirim.

[lazio]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  SR : TSearchRec;
  xPath : String;
begin
  xPath := 'C:\';
  if FindFirst(xPath + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if FileExists(xPath + SR.Name) = True then
      begin
        Table1.Insert;
        Table1Alan.Value := SR.Name;
        Table1.Post;
      end;
    until FindNext(SR) <> 0;
  end
  else
    ShowMessage('Hiç Dosya Bulunamadı');
  FindClose(SR);
end;

gibi..

[dcpromo]

lazio kardeş yaptım ama klasörün içinde dosya oldugu halde dosya bulunamadı diyor

procedure TForm1.Button1Click(Sender: TObject);

var
SR : TSearchRec;
xPath : String;
begin
xPath := 'C:\klasor;
if FindFirst(xPath + '*.txt', faAnyFile, SR) = 0 then
begin
repeat
if FileExists(xPath + SR.Name) = True then

adoquery1.Insert;
adoquery1dosyaismi.Value := SR.Name;
adoquery1.Post;

until FindNext(SR) <> 0;
end
else
ShowMessage('Hiç Dosya Bulunamadı');
FindClose(SR);

end;

[oguzozturk74]

Kod: Tümünü seç

 xPath := 'C:\klasor\'; 

[dcpromo]

çok saolun