使用copyfile函数
函数原形如下Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
函数原形如下Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
解决方案 »
- DxDbTreeList使用者请进,如何遍历一节点开始的所有节点??
- 请教一下取硬盘序列号的这个函数
- 那里有sniffer的delphi源码?最好有说明..
- 如何在EXCEL中设置边框线???
- SQL中的一个好奇怪的现象.
- 如何判断主关键字重复?多谢指点
- 奇怪的问题——为什么会显示"table is read only"?
- 如果COMBOBOX的ITEM成员中有‘我们’,’你们‘,怎么实现在COMBO中输入‘我’后,‘们’就出现在’我‘之后,并且‘们’被SETFOCUS。
- 想兼职,谁要人?
- 高分求教表格制作
- delphi怎么访问一个DLL,急
- 20分求Delphi5企业版升级包的密码,只给第一个正确的
有人告诉我使用结构tshfileopstruct,该怎么用?继续请教!!
//拷贝目录(包括子目录一起拷贝)************************************************
//==============================================================================
procedure XCopyDir(SourceDir, TargetDir: string);
var DirInfo: TSearchRec;
DosError: Integer;
begin
DosError := FindFirst(SourceDir+'\*.*', FaAnyfile, DirInfo);
if not DirectoryExists(TargetDir) then ForceDirectories(TargetDir);
while DosError=0 do
begin
if ((DirInfo.Attr and FaDirectory)=faDirectory) and (DirInfo.Name<>'.') and (DirInfo.Name<>'..')
then XCopyDir(SourceDir + '\' + DirInfo.Name, TargetDir + '\' + DirInfo.Name);
{$IF DEFINED(WIN32) AND DECLARED(UsingVCL)}
if ((DirInfo.Attr and FaDirectory)<>FaDirectory) and ((DirInfo.Attr and FaVolumeID)<>FaVolumeID)
{$ELSE}
if ((DirInfo.Attr and FaDirectory)<>FaDirectory)
{$IFEND}
then CopyFile(PChar(SourceDir + '\' + DirInfo.Name), PChar(TargetDir + '\' + DirInfo.Name), false);
DosError := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
end;