文件拷贝函数是什么,怎么写? 我想把一个目录下的文件,比如*.mp3,或者*.txt拷贝到另一个目录下,请问用什么函数,具体参数是什么? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 CopyFile('C:\Boot.ini', 'D:\Boot.ini', True); 也可以利用批處理文件的方式:1、首先建一個批處理文件edit copy.bat copy c:\*.mp3 d:\2、然后調用外部命令uses shellapi ShellExecute(); 比如我想这么考可以么? CopyFile('C:\Boot.mp3', 'D:', True); 到d盘目录下 procedure CopyFileEx(AFile, ADestPath: string);begin CopyFile(PChar(AFile), PChar(IncludeTrailingPathDelimiter(ADestPath) + ExtractFileName(AFile)), True);end;sFile := 'C:\csb.log';CopyFileEx(sFile, 'D:'); COPYFILE(PCHAR('C:\AA.TXT'),PCHAR('D:\2.TXT'),FALSE) ShellAPI的SHFileOperation是最好的http://lysoft.7u7.net 文件拷贝的函数,只要输入源文件和目标文件名即可。// 设置文件拷备函数function WinCOPY(SourceFileName: String; TargetFileName: String): String;var OpStruc: TSHFileOpStruct; FromBuf,ToBuf: Array[0..128] of Char;begin FillChar(FromBuf,Sizeof(FromBuf),0); FillChar(ToBuf,Sizeof(ToBuf),0); //用0初始化FromBuf和ToBuf数组 StrPCopy(FromBuf,Pchar(SourceFileName)); StrPCopy(ToBuf,Pchar(TargetFileName)); //分别在 FromBuf和ToBuf数组中填入操作的源目录及目标目录 //开始填充OpStruc记录 with OpStruc do begin Wnd:=Handle; wFunc:=FO_COPY; //复制操作 pFrom:=@FromBuf; pTo:=@ToBuf; fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; fAnyOperationsAborted:=False; hNameMappings:=nil; lpszProgressTitle:=nil; OpStR:= SHFileOperation(OpStruc); end;end; win32Api 可能实现局域网用的,不过得有权限Windows.copyFile delphi 制作 DLL 参数传递问题 chart实现简单问题:一个人实际完成量占应该完成总量的百分比用chart显示? 如何讓選取的哪個窗體總顯示在最上面?? 第一天到成都,又要找工作了,散分。 如何检测form的重画事件 请教排序问题! 汇总问题(在线等) 大家看看这个问题 取消怎么实现? 怎样不利用Tbachmove控件完成数据下载呀 谁会刻光盘!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 再问---关于实现在Win98下对目录及子目录下文件的监控问题... delphi中的数据库问题,在线等!
1、首先建一個批處理文件edit copy.bat copy c:\*.mp3 d:\2、然后調用外部命令
uses shellapi
ShellExecute();
begin
CopyFile(PChar(AFile), PChar(IncludeTrailingPathDelimiter(ADestPath) + ExtractFileName(AFile)), True);
end;sFile := 'C:\csb.log';
CopyFileEx(sFile, 'D:');
SHFileOperation是最好的http://lysoft.7u7.net
// 设置文件拷备函数
function WinCOPY(SourceFileName: String; TargetFileName: String): String;
var
OpStruc: TSHFileOpStruct;
FromBuf,ToBuf: Array[0..128] of Char;
begin
FillChar(FromBuf,Sizeof(FromBuf),0);
FillChar(ToBuf,Sizeof(ToBuf),0);
//用0初始化FromBuf和ToBuf数组
StrPCopy(FromBuf,Pchar(SourceFileName));
StrPCopy(ToBuf,Pchar(TargetFileName));
//分别在 FromBuf和ToBuf数组中填入操作的源目录及目标目录
//开始填充OpStruc记录
with OpStruc do
begin
Wnd:=Handle;
wFunc:=FO_COPY;
//复制操作
pFrom:=@FromBuf;
pTo:=@ToBuf;
fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
OpStR:= SHFileOperation(OpStruc);
end;
end;
Windows.copyFile