請教各位前輩..... 小弟想使用 removedir('c:\emc\text'); 移除'test'這一個資料夾 可是如果這一個資料夾內有其他資料 是不是就無法使用這一個方法刪除 (如果是空的就能刪除) 那我該使用那一種方法才能刪除ㄋ?? TOMMY

------
TOMMY

Question :  How can I delete a directory and all his subdirectories ?     Answer :  DeleteAllFiles() will delete a set of files or a directory of your choice and place them in the Recycle Bin. It also displays the same animation of the operation as does Windows Explorer. You can pass wildcards to the function. In order to delete a directory, do not include the last backslash. For example:  DeleteAllFiles('C:\ThisDirectory'); 

uses ShellAPI;     function DeleteAllFiles(FilesOrDir: string): boolean; 
{ Sends files or directory to the recycle bin. } 
var 
  F: TSHFileOpStruct; 
  pFromc: array[0..255] of Char; 
  Resultval: integer; 
  Dir: string; 
begin 
  { This, for some reason, fixes the AV that occurs when } 
  { the directory doesn't exist. } 
  Dir := ExtractFilePath(FilesOrDir);       Screen.Cursor := crHourGlass; 
  try 
    FillChar(pFromc, SizeOf(pFromc), 0); 
    StrPcopy(pFromc, ExpandFileName(FilesOrDir)   #0#0); 
    F.wnd   := 0; 
    F.wFunc := FO_DELETE; 
    F.pFrom := pFromC; 
    F.pTo   := nil;         F.fFlags := FOF_ALLOWUNDO or 
                FOF_NOCONFIRMATION or 
                FOF_SIMPLEPROGRESS or 
                FOF_FILESONLY;         F.fAnyOperationsAborted := False; 
    F.hNameMappings := nil; 
    Resultval := ShFileOperation(F); 
    Result := (ResultVal = 0); 
  finally 
    Screen.Cursor := crDefault; 
  end; 
end;

我該如何使用button觸發這一個function?? 或是把function加入button中? 再請教一下... removedir是移除目錄的指令 那我要單獨刪除一個.txt的檔案 要使用哪一個指令?? TOMMY 發表人 - tommy 於 2002/07/11 10:28:24

------
TOMMY

1.

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteAllFiles('c:\your_dir_name');
end;

2. 用 function DeleteFile(filename);

引言: 1.

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteAllFiles('c:\your_dir_name');
end;

2. 用 function DeleteFile(filename); 這正是小弟想要的 又多學了一招 感謝hagar前輩......

TOMMY

請問 如果某一檔案有人使用該如何修改才不會出現ERROR MESSAGE. Thank you!

我想要刪除ABC 這個資料夾內 "現在沒有人正在使用" 的所有檔案 我該如何修改DeleteAllFiles() 才能使這個function 可使用，謝謝協助。