حذف فایل با استفاده از * یه عنوان پسوند فایل

[khoshblagh]

با سلام خدمت دوستان
میخواهم از طریق کد زیر تمام فایلهایی که اسم یکسان دارند ولی دارای پسوند متفاوتی می باشند را با دستور زیر پاک نمایم ولی فایلهای مورد نظر از روی سیستم حذف نمیشود.علت چیست؟ متشکرم

my_file := ExtractFileDir(Application.ExeName) + '\'+
frmDisketBank.edtCodCompany.Text+frmDisketBank.edt CodShobehBnk.Text+'.*';
DeleteFile(my_file);

[mohsen24000]

تابع DeleteFile فقط یک فایل را پاک می کند نه فایلهای دسته ای را...!
بهتر است از یک حلقه و findfirst استفاده کنید.


var
searchResult : TSearchRec;
begin
if FindFirst('Unit1.*', faAnyFile, searchResult) = 0 then
begin
repeat
deletefile(searchResult.Name);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
end;