تغییر نام فایلها در FileListBox

[nasr]

سلام

چگونه میشه نام فایلهایی را که در FileListBox به ما نشون می ده را تغییر داد یعنی با این

کامپوننت فایلهای یک درایو را دید و هر کدام را خواستیم حذف یا کپی یا حداقل نام اون فایلها را

عوض کنیم

با تشکر

[moradi_am]

یک EDit و یک Button و یک filelistbox روی فرم قرار داده و کدهای زیر را اضافه کنید .

procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile(FileListBox1.FileName,Edit1.Text);
FileListBox1.Update;
end;

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
Edit1.Text:=FileListBox1.FileName;
end;

حال اگر مقدار EDit1 را تغییر دهید و button1 را کلیک کنید نام فایل عوض خواهد شد .