請教如何刪除目錄? |
|
答題得分者是：RaynorPao
|
|
huangeider
高階會員   發表：288 回覆：492 積分：231 註冊：2003-02-26 發送簡訊給我 |
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ 針對于目錄操作的一些函式如下﹕
MkDir﹕建立新目錄
RmDir﹕刪除空的目錄
ChDir﹕改變當前的目錄位置 舉個例子﹕
Var
DriverName : String;
begin
GetDir(4, DriverName);
ShowMessage(DriverName);
MkDir('D:\Xin');
ChDir('D:\Xin'); //RmDir('D:\Xin')
end;
您的問題﹐可結合這些方法來做﹐但RmDir只能刪除空的目錄﹐所以要先進入此目錄﹐刪除其內的目錄后﹐再回到上一層來作刪除﹒ 參考看看﹗ =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
sos_admin
版主 發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
implementation
uses shellapi;
{$R *.dfm}
procedure TForm1.deltree(namelist:string);
var
lpFileOp: TSHFileOpStruct;
begin
with lpFileOp do
begin
Wnd := Self.Handle;
wFunc := FO_DELETE;
pFrom := pchar(NameList #0);//此为要删除的文件或目录，支持*、？
pTo := nil;
fFlags := FOF_ALLOWUNDO;
hNameMappings := nil;
lpszProgressTitle := nil;
fAnyOperationsAborted := True;
end; if SHFileOperation(lpFileOp) <> 0 then
ShowMessage('删除失败，请查实。');
end; procedure TForm1.Button1Click(Sender: TObject);
begin
deltree('c:\sss');
end; end.
|
|
huangeider
高階會員 發表：288 回覆：492 積分：231 註冊：2003-02-26 發送簡訊給我 |
發表時間：2003-10-30 08:55:31
IP:210.201.xxx.xxx 未訂閱
系統時間：2025-02-27 22:08:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |