سلام
من وقتی می خواهم یک فایل را با استفاده از تابع deletefile پاک کنم فقط فایلهایی که در مسیر جاری هست را پاک می کند یعنی اگر یک آدرس دیگر بدهم اصلا متوجه نمی شود
به نظرتون چه کار باید انجام بدهم؟
متشکرم
Printable View
سلام
من وقتی می خواهم یک فایل را با استفاده از تابع deletefile پاک کنم فقط فایلهایی که در مسیر جاری هست را پاک می کند یعنی اگر یک آدرس دیگر بدهم اصلا متوجه نمی شود
به نظرتون چه کار باید انجام بدهم؟
متشکرم
کدی را که سعی میکنید باهاش اون فایلها رو پاک کنید اینجا بنویسید تا چک اش کنیم.
deletefile("c:\folder\folder2\namefiel.pl" )
وقتی که به صورت زیر می نویسم فایل را پاک می کند
اما وقتی فایلم در یک پوشه یا بیشتر باشد فایل را پاک نمی کند
deletefile("c:\namefiel.pl")
اما این کد بدون مشکل برای من کار میکند. مثال:
procedure TForm1.Button1Click(Sender: TObject);
var filename: string;
begin
filename := 'C:\temp\05\05.zip';
if FileExists(FileName) then
if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?',
mtConfirmation, [mbYes, mbNo], 0) = IDYes then
DeleteFile(FileName);
end;