我想要个 删除文件目录及目录下所有内容 的函数
解决方案 »
- 使用TClientDataSet报错问题
- 【开源项目】数据库连接配置管理组件ConnectionManager V2.1
- TSmallIntArray应该引用哪个命名空间啊
- 求一条sql
- 怎样获取一个脚本错误的对话框 然后按《是》呢?
- 寻求多语方版最快最优解决方案!
- 向受到托普伤害的同行致以深切的慰问!!不过这也是件好事...
- 如何访问PostgreSQL数据库?
- 請問怎樣用ado連上同一工作組里其它電腦上的sql server
- 谁有这样的源代码???(在二进制文件中查找$DDEEFF)
- listview控件的使用问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 请问谁有ADO的例子
function TForm1.DelDirectory(const Source:string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0); with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source+#0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;Result := (SHFileOperation(fo) = 0);
end;
删除目录:
function DelDirectory(const Source:string): boolean;varfo: TSHFILEOPSTRUCT;beginFillChar(fo, SizeOf(fo), 0);with fo dobeginWnd := 0;wFunc := FO_DELETE;pFrom := PChar(source+#0);pTo := #0#0;fFlags := FOF_NOCONFIRMATION+FOF_SILENT;end;Result := (SHFileOperation(fo) = 0);end;复制目录:///复制Source整个目录到DEST目录,如果Dest不存在,自动建立,如果DEST存在,那么Source将作为Dest的子目录!//例如如果要复制E:整个目录到E:\u37027那么代码为: copydirectory('e:','e:);///如果要复制E:到E:目录下面,那么代码为:CopyDirecotry('E:','E:');function CopyDirectory(const Source, Dest: string): boolean;varfo: TSHFILEOPSTRUCT;beginFillChar(fo, SizeOf(fo), 0);with fo dobeginWnd := 0;wFunc := FO_COPY;pFrom := PChar(source+#0);pTo := PChar(Dest+#0);fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;end;Result := (SHFileOperation(fo) = 0);end;重新命名:用MoveFile()或者下面的函数也可以。RenameFile('c:','c:')好想也可以?Win2K。//RenDirectory('d:','d:');function RenDirectory(const OldName,NewName:string): boolean;varfo: TSHFILEOPSTRUCT;beginFillChar(fo, SizeOf(fo), 0);with fo dobeginWnd := 0;wFunc := FO_RENAME;pFrom := PChar(OldName+#0);pTo := pchar(NewName+#0);fFlags := FOF_NOCONFIRMATION+FOF_SILENT;end;Result := (SHFileOperation(fo) = 0);end;//Copy 多个文件的处理:function CopyFiles(const Source,Dest: string): boolean;varfo: TSHFILEOPSTRUCT;beginFillChar(fo, SizeOf(fo), 0);with fo dobeginWnd := 0;wFunc := FO_COPY;pFrom := @source[1];pTo :=pchar(dest);fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;end;Result := (SHFileOperation(fo) = 0);end;procedure TForm1.Button1Click(Sender: TObject);varstr:string;i:integer;beginif opendialog1.Execute thenbeginfor i:=0 to OpenDialog1.Files.Count-1 dostr:=str+OpenDialog1.Files.strings[i]+#0;showmessage(str);str:=str+#0;CopyFiles(str,'d:');end;end;