PDA

View Full Version : مشکل در استفاده از DeleteFile



mostafa612003
چهارشنبه 17 اردیبهشت 1382, 09:25 صبح
سلام
من وقتی می خواهم یک فایل را با استفاده از تابع deletefile پاک کنم فقط فایلهایی که در مسیر جاری هست را پاک می کند یعنی اگر یک آدرس دیگر بدهم اصلا متوجه نمی شود
به نظرتون چه کار باید انجام بدهم؟

متشکرم

مهدی کرامتی
چهارشنبه 17 اردیبهشت 1382, 13:11 عصر
کدی را که سعی میکنید باهاش اون فایلها رو پاک کنید اینجا بنویسید تا چک اش کنیم.

mostafa612003
شنبه 20 اردیبهشت 1382, 10:16 صبح
deletefile("c:\folder\folder2\namefiel.pl")


وقتی که به صورت زیر می نویسم فایل را پاک می کند
اما وقتی فایلم در یک پوشه یا بیشتر باشد فایل را پاک نمی کند



deletefile("c:\namefiel.pl")

مهدی کرامتی
شنبه 20 اردیبهشت 1382, 12:53 عصر
اما این کد بدون مشکل برای من کار میکند. مثال:

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;