rename

[dramali]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
memo1.Lines:=DirectoryListBox1.Items;

for i:=2 to memo1.lines.count - 1 do
Begin
table1.insert;
table1Title.AsString := memo1.lines;
table1.post;
end;
end;

yukaridaki kodla aldığım ve table a gönderdiğim directorylerin isimlerini 001 , 002 ... gibi nasıl rename edebilirim

[husonet]

Tabloya atamadan önce bir String tipindeki değişkene atarsanız veriyi işledikten sonrada tabloya aktarırsınız.

Kolay Gelsin...

[dramali]

bu şekilde sadece table a atacaklarımı değiştirebilirim be hdd de de o directorylerin isimlerini aynı şekilde rename etmek isitom

[husonet]

winexec Fonkisyonu ile dos komutlarını çalıştırabilirsin.

Kolay Gelsin....