小弟刚学DELPHI ,用delphi 写文件夹的拷贝,如把C:\temp整个文件夹和里面的子文件件夹文件全拷贝到D:\temp下,并且可以覆盖D:\temp里的同名文件夹和文件,新的文件也要拷贝到D:\temp下
解决方案 »
- bpl文件能被vb,vc等IDE共享吗?
- 如何在程序中调用TXT文件,并且直接打印出来???
- 继续求解:删除文件夹下的所有文件和子文件夹的函数,请多多支持
- 在线等。menubar.dcu,DsFancyButton.dcu找不到,这两个组件在哪能下载?
- 用ADO,如何显示自己的错误提示?
- 我想去北京发展,哪位好心人给我指引?
- 送分啦!!高手请了 ^o^ ---外部程序的调用问题。(有关进程的问题)
- 数据库问题
- 大家认为程序员大本营2001(BORLAND版)怎么样啊?
- 请教高手,怎么用delphi控制图象采集卡?
- ehlib导出数据的时候想加一个进度条显示导出状态!
- 小弟想从服务器上往本地磁盘拷贝文件和文件夹怎么做啊?可以更新覆盖本地同名文件和文件夹。100
Var
Opstruc: TshFileOpStruct;
frombuf,tobuf: Array[0..128] of Char;
begin
FillChar(frombuf,Sizeof(frombuf),0);
FillChar(tobuf,Sizeof(tobuf),0);
StrPcopy(frombuf,SourceDir);
Case nLx of
1:
StrPcopy(tobuf,DestDir);
end;
With Opstruc Do
Begin
Wnd:=0;
Case nLx of
1: wFunc:=FO_COPY;
2: wFunc:=FO_DELETE;
Else wFunc:=FO_COPY;
end;
pFrom:=@frombuf;
pTo:=@tobuf;
fFlags:=FOF_NOCONFIRMATION;
fAnyOperationsAborted:=False;
hNameMappings:=Nil;
lpszProgressTitle:=Nil;
end;
try
ShFileOperation(OpStruc);
Result:=True;
except
Result:=False;
end;
end;
Var
Opstruc: TshFileOpStruct;
frombuf,tobuf: Array[0..128] of Char;
begin
FillChar(frombuf,Sizeof(frombuf),0);
FillChar(tobuf,Sizeof(tobuf),0);
StrPcopy(frombuf,SourceDir);
Case nLx of
1:
StrPcopy(tobuf,DestDir);
end;
With Opstruc Do
Begin
Wnd:=0;
Case nLx of
1: wFunc:=FO_COPY;
2: wFunc:=FO_DELETE;
Else wFunc:=FO_COPY;
end;
pFrom:=@frombuf;
pTo:=@tobuf;
fFlags:=FOF_NOCONFIRMATION;
fAnyOperationsAborted:=False;
hNameMappings:=Nil;
lpszProgressTitle:=Nil;
end;
try
ShFileOperation(OpStruc);
Result:=True;
except
Result:=False;
end;
end;
shellapi;
///////
Copy_Dir('c:\aa','d:\',1 );
1: wFunc:=FO_COPY;//拷贝
2: wFunc:=FO_DELETE;//删除
Else wFunc:=FO_COPY;
end;