刪除檔案 |
|
TOMMY
一般會員 發表:16 回覆:32 積分:9 註冊:2002-03-15 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
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; |
TOMMY
一般會員 發表:16 回覆:32 積分:9 註冊:2002-03-15 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
TOMMY
一般會員 發表:16 回覆:32 積分:9 註冊:2002-03-15 發送簡訊給我 |
|
plwang
一般會員 發表:0 回覆:2 積分:0 註冊:2004-02-06 發送簡訊給我 |
|
plwang
一般會員 發表:0 回覆:2 積分:0 註冊:2004-02-06 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |