要实现在单机和局域网中定时将文件夹中的文件和其他嵌套的文件夹备份到制定目录。
请教使用什么API函数或什么好的方法能备份文件和文件夹,以及如何在局域网中实现?
请教使用什么API函数或什么好的方法能备份文件和文件夹,以及如何在局域网中实现?
解决方案 »
- 自己写的delphi加密解密算法
- 如何用Query这个控件导出数据 我用的是Delphi
- 为什么我编写的Delphi 7.0中的dll , 在调用的时候都没有问题,也FreeLibrary(Th)了,但是在退出主程序时候,主程序出错,提示内存错误!
- 讨论一下,有关库房管理中,“期初“值的计算
- ★★★Sql语句问题,帮我看看:select * From ykmx where 序号 like '''12'''+inttostr(i)+'''%'''
- 高手请进,由两个adodataset,产生另外一个adodataset,该怎么办?
- 关于Socket的Address问题,期待解答
- 怎样将一些文件放在exe文件内,当执行时自动复制硬盘上,谢谢!
- 我的注册表不能修改,说被管理员禁止!请帮助
- 大虾们请总结一下
- 请问如何控制DBChart打印设置,打印预览,很急,谢谢
- 请问,为什么我用Tclinetsocket 向Tserversocket发信息会出现乱码啊
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;
1.2拷贝目录的函数:CopyDir function CopyDir(sDirName:String;
sToDirName:string):Boolean;
begin
if Length(sDirName)< =0 then
exit;
//拷贝...
Result:=DoCopyDir(sDirName,sToDirName);
end;