如何复制某个盘的全部文件和文件夹？ ( 积分: 100 )

霖霖 · 2005-11-28

我想通过程序实现把硬盘上的某个盘（比如C：盘）上的文件和文件夹全部复制到另一个盘中去（比如D：盘），该怎么写代码？查阅了相关的资料后知道可以用 ShFileOperation 实现，可我对这个不熟悉，请高手指点。最好给出Demo代码。 感谢啦~~~！！！！！！！！！

霖霖 · 2005-11-28

我想通过程序实现把硬盘上的某个盘（比如C：盘）上的文件和文件夹全部复制到另一个盘中去（比如D：盘），该怎么写代码？查阅了相关的资料后知道可以用 ShFileOperation 实现，可我对这个不熟悉，请高手指点。最好给出Demo代码。 感谢啦~~~！！！！！！！！！

czcn · 2005-11-29

遍历整个C盘,然后一个个复制过去 用FindFirst和FindNext查找,查到的排除'.'和'..'的,余下用DirectoryExist判断是目录的.用MkDir或CreateDir或CreateDirectory在目的位置建立目录,否则的就是文件,用CopyFile复制吧. 注意: 1.遍历C盘时不要采用递归,否则内存耗得厉害,而定义个TStringsList,用add,del先进后出的原则来保存遍历的目录的方法. 2.如果复制的目录和文件的属性也要一致.目录要用CreateDirectory,文件CopyFile后用 FileSetAttr更改.

Lonestar · 2005-11-28

帮你顶下！[

]

songjy · 2005-11-30

function DoCopyDir(sDirName:String;sToDirName:String):Boolean; var   hFindFile:Cardinal;   t,tfile:String;   sCurDir:String[255];   FindFileData:WIN32_FIND_DATA; begin   //先保存当前目录   sCurDir:=GetCurrentDir;   ChDir(sDirName);   hFindFile:=FindFirstFile('*.*',FindFileData);   if hFindFile <> 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;                   CopyFile(PChar(tfile),PChar(t),True);              end;        until FindNextFile(hFindFile,FindFileData)=false;        FindClose(hFindFile);   end   else   begin        ChDir(sCurDir);        result:=false;        exit;   end;   //回到原来的目录下   ChDir(sCurDir);   result:=true; end;

霖霖 · 2005-12-02

To songjy： 你贴的代码怎么不能编译通过呀？ （1）编译时CopyFile(PChar(tfile),PChar(t),True);报错：[Error] Unit1.pas(371): Too many actual parameters。我查看Win32帮助发现的确是要三个参数的呀，但不知为何总是报错，我改为CopyFile(PChar(tfile),PChar(t));却可以通过编译。我的系统为WinXP SP2。 （2）编译时FindClose(hFindFile);报错：[Error] Unit1.pas(375): Types of actual and formal var parameters must be identical。暂时还不知如何解决。 不知哪位高人能解决上面的问题？

superrgf · 2005-12-02

（2）编译时FindClose(hFindFile);报错： 看delphi帮助 FindClose(var F: TSearchRec);而你的hfindfile为Cardinal;

霖霖 · 2005-12-02

在这里hFindFile:=FindFirstFile('*.*',FindFileData); hfindfile一定要为Cardinal类型，否则通不过。 在win32 SDK中定义是 HANDLE FindFirstFile(    LPCTSTR lpFileName,           // pointer to name of file to search for      LPWIN32_FIND_DATA lpFindFileData // pointer to returned information   );

Avalon · 2005-12-02

function f_OpFolder(p_FromDir,p_ToDir: string; p_Handle: THandle;   p_Type:Integer): Integer; //**************************************************** //说明 //文件夹操作函数 //参数 //p_FromDir 操作源文件夹 //p_ToDir   操作目标文件夹 //p_Handle  Application.Handle //p_Type    操作类型  0: 复制 1:移动 2：删除 3：重命名 //返回值 0：操作失败 1：操作成功 //**************************************************** var v_SHFOS: TSHFILEOPSTRUCT; v_ToDir, v_FromDir: array[0..2048] of Char; begin Result:=0; FillChar(v_SHFOS, Sizeof(v_SHFOS), #0); if not DirectoryExists(p_FromDir) then   begin     MessageBoxW(p_Handle,'操作文件夹不存在！','注意',MB_OK+MB_ICONINFORMATION);     Exit;   end; FillChar(v_FromDir, Sizeof(v_FromDir), #0); FillChar(v_ToDir, Sizeof(v_ToDir), #0); StrPCopy(v_FromDir, p_FromDir); StrPCopy(v_ToDir, p_ToDir); //*************************************************************************** v_SHFOS.Wnd   := p_Handle; v_SHFOS.pFrom := @v_FromDir; //源路径 v_SHFOS.pTo   := @v_ToDir; //目标路径 v_SHFOS.hNameMappings := nil;  //不使用Map文件 v_SHFOS.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_MULTIDESTFILES  or   FOF_NOCONFIRMMKDIR or FOF_SIMPLEPROGRESS;//允许撤消，不出现确定窗口，需要创建新目录时不提示 case p_Type of 0:begin  //复制     v_SHFOS.lpszProgressTitle := '正在拷贝数据文件...'; //显示进度窗口的Caption     v_SHFOS.wFunc := FO_COPY; //执行COPY操作   end; 1:begin  //移动     v_SHFOS.lpszProgressTitle := '正在拷贝数据文件...'; //显示进度窗口的Caption     v_SHFOS.wFunc := FO_MOVE; //执行MOVE操作   end; 2:begin  //删除     v_SHFOS.lpszProgressTitle := '正在删除数据文件...'; //显示进度窗口的Caption     v_SHFOS.wFunc := FO_DELETE; //执行DELETE操作   end; 3:begin  //重命名     if ExtractFilePath(LowerCase(p_FromDir))&lt;&gt;ExtractFilePath(LowerCase(p_ToDir)) then       begin         MessageBoxW(p_Handle,'文件夹制定路径不一致！','注意',MB_OK+MB_ICONINFORMATION);         Exit;       end;     v_SHFOS.wFunc := FO_RENAME; //执行RENAME操作   end; else   Exit; end; //*************************************************************************** if ShFileOperation(v_SHFOS)=0 then   Result:=1; end;

霖霖 · 2005-12-03

To Avalon: 我这样调用 f_OpFolder('C:','E:/Temp', Application.Handle,0) 你给出的函数，结果出错，提示说“无法复制文件：无法读源文件或磁盘”。 如果复制文件夹就没问题，例如：f_OpFolder('C:/AAA','E:/Temp', Application.Handle,0) ，可以正确运行。 该如果解决？

霖霖 · 2005-12-04

？ ？？ ？？？ ？？？？ ？？？？？

米歇尔 · 2005-12-05

很简单的你用winexec('cmd.exe /c xcopy c:/ 目标 /参数',sw_hide); XCOPY source [destination] [/A | /M] [/D[:date]] [/P] [/S [                           [/C] [/I] [/Q] [/F] [/L] [/H] [/                           [/K] [/N] [/O] [/X] [/Y] [/-Y] [                           [/EXCLUDE:file1[+file2][+file3].  source       指定要复制的文件。  destination  指定新文件的位置和/或名称。  /A           只复制有存档属性集的文件，               但不改变属性。  /M           只复制有存档属性集的文件，               并关闭存档属性。  /D:m-d-y     复制在指定日期或指定日期以后改变的文件。               如果没有提供日期，只复制那些源时间               比目标时间新的文件。  /EXCLUDE:file1[+file2][+file3]...               指定含有字符串的文件列表。如果有任何               字符串与要被复制的文件的绝对路径               相符，那个文件将不会得到复制。               例如，指定如 /obj/ 或 .obj 的字符串会排除               目录 obj 下面的所有文件或带有               .obj 扩展名的文件。  /P           创建每个目标文件前提示。  /S           复制目录和子目录，除了空的。  /E           复制目录和子目录，包括空的。               与 /S /E 相同。可以用来修改 /T。  /V           验证每个新文件。  /W           提示您在复制前按键。  /C           即使有错误，也继续复制。  /I           如果目标不存在，又在复制一个以上的文件，               则假定目标一定是一个目录。  /Q           复制时不显示文件名。  /F           复制时显示完整的源和目标文件名。  /L           显示要复制的文件。  /H           也复制隐藏和系统文件。  /R           改写只读文件。  /T           创建目录结构，但不复制文件。不               包括空目录或子目录。/T /E 包括               空目录和子目录。  /U           只复制已经存在于目标中的文件。  /K           复制属性。一般的 Xcopy 会重设只读属性。  /N           用生成的短名复制。  /O           复制文件所有权和 ACL 信息。  /X           复制文件审核设置(隐含 /O)。  /Y           禁止提示以确认改写一个               现存目标文件。  /-Y          导致提示以确认改写一个               现存目标文件。  /Z           用重新启动模式复制网络文件。 命令选项 /Y 可以预先在 COPYCMD 环境变量中设置。 这可能被命令行上的 /-Y 改写。

Undefine · 2005-12-05

用findnext和findfirst？我晕，这是谁想的主意哦，我同意楼上的兄弟，只是可能用ShellExecute来启动好些。

霖霖 · 2005-12-05

我以前用的就是WinExec()，就是想换一种方法。 这种方法有个弊端就是如果系统中没有xcopy.exe就不行了。

米歇尔 · 2005-12-05

系统安装时候自动都有的，而且受文件保护系统保护！当然你可以自己携带它，用的时候从资源里面释放出来！

爱元元的哥哥 · 2005-12-05

怎么可能这么简单呢？pagefile.sys这类文件你在ring3根本无法打开它的句柄，也就根本无法复制，ghost不是这么容易做的，我以前做的时候直接打开//device/harddisk/dr0设备，然后根据ntfs或者fat格式，自己一个接一个的分析扇区，这样的备份软件现在在国外可以卖大价钱，怎么是你们认为的这么简单呢！

songjy · 2005-12-05

unit Unit2; interface uses   Windows,Messages, SysUtils, Variants; implementation function DoCopyDir(sDirName:String;sToDirName:String):Boolean; var   hFindFile:Cardinal;   t,tfile:String;   sCurDir:String[255];   FindFileData:WIN32_FIND_DATA; begin   sCurDir:=GetCurrentDir;   ChDir(sDirName);   hFindFile:=FindFirstFile('*.*',FindFileData);   if hFindFile <> 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;                   CopyFile(PChar(tfile),PChar(t),True);              end;        until FindNextFile(hFindFile,FindFileData)=false;        FindClose(hFindFile);   end   else   begin        ChDir(sCurDir);        result:=false;        exit;   end;   //回到原来的目录下   ChDir(sCurDir);   result:=true; end; end. 这段代码肯定是可以通过的,原因在于uses 语句

guoqun · 2005-12-06

procedure TForm1.Button1Click(Sender: TObject); var  FromBuf,ToBuf:array[0..128] of char;  OpStruc: TSHFileOpStruct; begin FillChar(FromBuf,SizeOf(FromBuf),0);       FillChar(ToBuf,SizeOf(ToBuf),0);       StrPCopy(FromBuf,PChar('c:/'));       StrPCopy(ToBuf,PChar(extractfilepath(application.ExeName)));       with OpStruc do       begin          Wnd := Handle;          wFunc := FO_COPY;          pFrom := @FromBuf;          pTo := @ToBuf;        fFlags:=FOF_NOCONFIRMATION;//FOF_ALLOWUNDO;FOF_NOCONFIRMATION;FOF_RENAMEONCOLLISION ; fof_filesonly;          fAnyOperationsAborted := false;          hNameMappings := nil;          lpszProgressTitle := nil;       end;       SHFileOperation(OpStruc); end;

霖霖 · 2005-12-07

To songjy：  你编译能不能通过呀？我编译时总是FindClose(hFindFile)这里过不去，提示[Error] Unit1.pas(138): Types of actual and formal var parameters must be identical To guoqun：   编译出错，提示说“无法复制文件：无法读源文件或磁盘”。

霖霖 · 2005-12-07

To songjy：  你编译能不能通过呀？我编译时总是FindClose(hFindFile)这里过不去，提示[Error] Unit1.pas(138): Types of actual and formal var parameters must be identical To guoqun：   编译出错，提示说“无法复制文件：无法读源文件或磁盘”。

如何复制某个盘的全部文件和文件夹？ ( 积分: 100 )

霖霖

Unregistered / Unconfirmed

霖霖

Unregistered / Unconfirmed

czcn

Unregistered / Unconfirmed

Lonestar

Unregistered / Unconfirmed

songjy

Unregistered / Unconfirmed

霖霖

Unregistered / Unconfirmed

superrgf

Unregistered / Unconfirmed

霖霖

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

霖霖

Unregistered / Unconfirmed

霖霖

Unregistered / Unconfirmed

米歇尔

Unregistered / Unconfirmed

Undefine

Unregistered / Unconfirmed

霖霖

Unregistered / Unconfirmed

米歇尔

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

songjy

Unregistered / Unconfirmed

guoqun

Unregistered / Unconfirmed

霖霖

Unregistered / Unconfirmed

霖霖

Unregistered / Unconfirmed

Similar threads