如何删除一目录以及目录里面的文件(是否得先判断此目录是否存在!)
请指教!!!
请指教!!!
解决方案 »
- 对edit1的内容进行if逻辑判断
- 关于delphi indy进行tcp传输的问题
- 请问各位大侠PSafeArray在DELPHI中如何使用
- 100分求F1Book6.1汉化版
- 怎么样在treeview下面 确定子目录所在的根目录 ?
- 关于多语言版本的问题,非常迷惑,在线等待
- ★★ daisy8675(莫依)是女的吗?那大家可要照顾一点啦★★
- 一个关于ADO的问题,没有分了只好把最后的35分全部奉送!
- 请问如何删除指定数据?
- 高手情指点,动态生成控件的问题?
- 当一个日期型字段(adate)的值为空时,用以下语句fieldbyname('adate').asdatetime得出的值是多少呀
- 小问题急!!!
WinExec('CMD.Exe /k deltree.exe -y c:\temp',sw_hide);
uses shellapi
...
procedure TForm1.Button1Click(Sender: TObject);
var
sf: TSHFileOpStruct;
begin
sf.Wnd:=handle;
sf.pFrom:='d:\temp\temp';
sf.fFlags:= FOF_NOCONFIRMATION;
sf.hNameMappings := nil;
sf.lpszProgressTitle := nil;
sf.pTo := nil;
sf.wFunc := FO_DELETE;
if SHFileOperation(sf)=0 then
ShowMessage('目录成功删除!');
end;
我这样做
遍历文件夹,一一删除文件,删除目录。
-------
判断目录存在
directoryexists uses SysUtils;
var
FSearchRec,DSearchRec:TSearchRec;
FindResult:integer;
begin
if apath[length(apath)]<>'\' then apath:=apath+'\';
FindResult:=FindFirst(Apath+'*.*',faAnyFile+faHidden+faSysFile+faReadOnly,FSearchRec);
try
while FindResult=0 do
begin
//这里写找到文件后的操作
FindResult:=FindNext(FSearchRec);
end;
FindResult:=FindFirst(Apath+'*.*',faDirectory,DSearchRec );
while FindResult =0 do
begin
if ((DSearchRec.Attr and fadirectory)=fadirectory) and (leftstr(DSearchRec.Name,1)<>'.') then
FindFiles(Apath+DSearchRec.Name);
FindResult:=FindNext(DSearchRec );
end;
finally
FindClose(FSearchRec);
end;
end;