如何删除一个空文件夹 ( 积分: 50 )

书上和DELPHI的帮助文档都说
rmDir, removeDir, removedirectory
能够删除一个空文件夹
可是我试了,根本不能删除空文件夹
这三个函数一个也不行
那位高手指点一下好吗

removeDir我以前用到过，可以删除空文件夹的。
你不能删除，看看是不是文件夹名的最后有斜杠'/'
或者是不是杀毒软件的干扰。

procedure TfrmPing.Button1Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf: Array [0..128] of Char;
Source:String;
begin
Source:='E:/1';
FillChar( frombuf, Sizeof(frombuf), 0 );
StrPCopy( frombuf, Source );
With OpStrucdo
begin
Wnd:= Handle;
wFunc:= FO_DELETE;
pFrom:= @frombuf;
pTo := nil;
fFlags:=FOF_SIMPLEPROGRESS;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
SHFileOperation(OpStruc);
API函数，删除文件夹及文件夹中的所有文件。

ufo!
我的文件夹名后面没有/
我的计算机上也没有杀毒软件
但就是不行
是不是不支持 WIN 2000 SERVER
无柄叶的方法行

removeDir最后也是调用的api是来自kernel32.dll内的 RemoveDirectoryA
你不能删除不知是不是权限的问题，或者你可以直接试试这个api，参数是pchar类型
RemoveDirectoryW