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

[nasr]

سلام

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

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

عوض کنیم

با تشکر

[moradi_am]

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

procedure TForm1.Button1Click(Sender: TObject);

begin

RenameFile(FileListBox1.FileName,Edit1.Text&#4  1;;

FileListBox1.Update;

end;



procedure TForm1.FileListBox1Change(Sender: TObject);

begin

Edit1.Text:=FileListBox1.FileName;

end;

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