khoshblagh
چهارشنبه 07 دی 1390, 08:57 صبح
با سلام خدمت دوستان
میخواهم از طریق کد زیر تمام فایلهایی که اسم یکسان دارند ولی دارای پسوند متفاوتی می باشند را با دستور زیر پاک نمایم ولی فایلهای مورد نظر از روی سیستم حذف نمیشود.علت چیست؟ متشکرم
my_file := ExtractFileDir(Application.ExeName) + '\'+
frmDisketBank.edtCodCompany.Text+frmDisketBank.edt CodShobehBnk.Text+'.*';
DeleteFile(my_file);
میخواهم از طریق کد زیر تمام فایلهایی که اسم یکسان دارند ولی دارای پسوند متفاوتی می باشند را با دستور زیر پاک نمایم ولی فایلهای مورد نظر از روی سیستم حذف نمیشود.علت چیست؟ متشکرم
my_file := ExtractFileDir(Application.ExeName) + '\'+
frmDisketBank.edtCodCompany.Text+frmDisketBank.edt CodShobehBnk.Text+'.*';
DeleteFile(my_file);