枚举指定路径下文件及文件夹复制到指定路径下
2009-10-01 14:17
399 查看
function DoCopyDir(sDirName, sToDirName: String): Boolean;
var
F: TSearchRec;
//hFindFile:Cardinal;
t,tfile:String;
sCurDir:String[255];
FindFileData:WIN32_FIND_DATA;
begin
//先保存当前目录
sCurDir:=GetCurrentDir;
ChDir(sDirName);
F.FindHandle:=FindFirstFile('*.*',FindFileData);
if F.FindHandle<>INVALID_HANDLE_VALUE then
begin
if not DirectoryExists(sToDirName) then //如果目录不存在
ForceDirectories(sToDirName); //强迫建立目录
repeat
tfile:=FindFileData.cFileName;
if (tfile='.') or (tfile='..') then Continue; //跳过两个目录标识
if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
begin
t:=sToDirName+'/'+tfile;
if not DirectoryExists(t) then
ForceDirectories(t);
if sDirName[Length(sDirName)]<>'/' then
DoCopyDir(sDirName+'/'+tfile,t)
else DoCopyDir(sDirName+tfile,sToDirName+tfile);
end else
begin
t:=sToDirName+'/'+tFile;
Form1.StatusBar1.Panels[0].Text := t;
Form1.StatusBar1.Refresh;
//Frmmain.msgWriter('正在拷贝: '+t);
CopyFile(PChar(tfile),PChar(t),false);
// FrmMain.Prgb.StepBy(1);
end;
until FindNextFile(F.FindHandle,FindFileData)=false;
FindClose(F);
end else
begin
ChDir(sCurDir);
result:=false;
exit;
end;
//回到原来的目录下
ChDir(sCurDir);
result:=true;
end;
var
F: TSearchRec;
//hFindFile:Cardinal;
t,tfile:String;
sCurDir:String[255];
FindFileData:WIN32_FIND_DATA;
begin
//先保存当前目录
sCurDir:=GetCurrentDir;
ChDir(sDirName);
F.FindHandle:=FindFirstFile('*.*',FindFileData);
if F.FindHandle<>INVALID_HANDLE_VALUE then
begin
if not DirectoryExists(sToDirName) then //如果目录不存在
ForceDirectories(sToDirName); //强迫建立目录
repeat
tfile:=FindFileData.cFileName;
if (tfile='.') or (tfile='..') then Continue; //跳过两个目录标识
if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
begin
t:=sToDirName+'/'+tfile;
if not DirectoryExists(t) then
ForceDirectories(t);
if sDirName[Length(sDirName)]<>'/' then
DoCopyDir(sDirName+'/'+tfile,t)
else DoCopyDir(sDirName+tfile,sToDirName+tfile);
end else
begin
t:=sToDirName+'/'+tFile;
Form1.StatusBar1.Panels[0].Text := t;
Form1.StatusBar1.Refresh;
//Frmmain.msgWriter('正在拷贝: '+t);
CopyFile(PChar(tfile),PChar(t),false);
// FrmMain.Prgb.StepBy(1);
end;
until FindNextFile(F.FindHandle,FindFileData)=false;
FindClose(F);
end else
begin
ChDir(sCurDir);
result:=false;
exit;
end;
//回到原来的目录下
ChDir(sCurDir);
result:=true;
end;
相关文章推荐
- Qt5 实现文件复制并在指定路径下创建文件夹
- 将文件夹内所有文件复制到指定路径
- C#实现把指定文件夹下的所有文件复制到指定路径下以及修改指定文件的后缀名
- 复制指定路径的文件和文件夹
- c#将一个文件夹及其里面的所有内容(文件和文件夹)复制到指定路径
- c#如何实现对指定路径文件夹的遍历并复制里面所有文件到指定路径
- 使用Python实现从各个子文件夹中复制指定文件的方法
- 删除指定文件路径下的所有文件及文件夹
- 将assets文件夹下 person.db 复制到SD卡指定路径
- symbian 获取指定路径下的文件夹和文件列表
- PHP循环输出指定目录下的所有文件和文件夹路径例子(简单实用)
- java 复制文件夹下所有文件到指定的文件夹,不改变目录结构
- C#-文件复制到指定目录和复制文件夹中的所有数据
- 使用VS的生成事件命令行指令将生成的exe,dll文件复制到指定文件夹中
- 输出指定文件夹下所有文件的路径
- SD卡指定路径删除文件或者文件夹
- C# 1.将整个文件夹复制到目标文件夹中 2.将指定文件复制到指定目标文件夹中
- 打开指定路径的文件夹,exe文件,config文件
- linux复制指定目录下的全部文件到另一个目录中,linux cp 文件夹
- Android:从Apk本地Assets复制文件到指定文件夹