碟仙2 恶灵始源:文件(夹)复制、删除、重命名
来源:百度文库 编辑:偶看新闻 时间:2024/04/20 08:55:12
文件(夹)复制、删除、重命名
分类: Delphi 2008-10-15 22:46 343人阅读 评论(0) 收藏 举报- //------------------------------------------------------------------------------
- // 删除目录
- //------------------------------------------------------------------------------
- function 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 CopyDirectory(const Source, Dest: string): boolean;
- var
- fo: TSHFILEOPSTRUCT;
- begin
- FillChar(fo, SizeOf(fo), 0);
- with fo do
- begin
- Wnd := 0;
- wFunc := FO_COPY;
- pFrom := PChar(source + #0);
- pTo := PChar(Dest + #0);
- fFlags := FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR;
- end;
- Result := (SHFileOperation(fo) = 0);
- end;
- //------------------------------------------------------------------------------
- // 重新命名目录 RenDirectory('d:/wt2','d:/bcde');
- //------------------------------------------------------------------------------
- function RenDirectory(const OldName, NewName: string): boolean;
- var
- fo: TSHFILEOPSTRUCT;
- begin
- FillChar(fo, SizeOf(fo), 0);
- with fo do
- begin
- Wnd := 0;
- wFunc := FO_RENAME;
- pFrom := PChar(OldName + #0);
- pTo := pchar(NewName + #0);
- fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
- end;
- Result := (SHFileOperation(fo) = 0);
- end;
- //------------------------------------------------------------------------------
- // 复制多个文件
- //------------------------------------------------------------------------------
- function CopyFiles(const Source, Dest: string): boolean;
- var
- fo: TSHFILEOPSTRUCT;
- begin
- FillChar(fo, SizeOf(fo), 0);
- with fo do
- begin
- Wnd := 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);
- var
- str: string;
- i: integer;
- begin
- if opendialog1.Execute then
- begin
- for i := 0 to OpenDialog1.Files.Count - 1 do
- str := str + OpenDialog1.Files.strings[i] + #0;
- showmessage(str);
- str := str + #0;
- CopyFiles(str, 'd:/temp');
- end;
- end;
注:需要引用ShellAPI单元
未知文件无法删除,无法重命名,咋办?
windows下的文件复制和重命名的脚本是什么?
怎样批量重命名文件?怎样批量删除QQ好友?
为什么有一些文件或者文件夹不能删除,移动或者重命名
如何删除系统剪切板的复制文件?
请教关于无法复制打开删除文件
总是说:重命名、移动或删除一些文件将使某些文件无法运行
文件不可重命名
怎样为文件重命名?
为什么文件不能重命名
文件不能重命名?
文件重命名一问?
文件不能重命名,怎么办?
文件重命名的问题
怎么批量重命名文件
怎么禁止文件重命名????
doc文件重命名
为何文件不能重命名
关于文件重命名
文件无法重命名
关于文件重命名问题
如何禁止重命名文件!!
文件重命名问题
如何批量重命名文件