我想把一个目录下的文件,比如*.mp3,或者*.txt拷贝到另一个目录下,请问用什么函数,具体参数是什么?
解决方案 »
- 编码转换 string 转成 utf-8格式的字符 200分
- 新手请教数据库方面的问题
- 请问如何在DELPHI程序中检测WebBrowser控件中的点击?
- 下面语句导出excel的时候提示出错,我的循环有问题吗?
- 在一个主窗口中有dbgrid1控件和button1控件,点击button1弹出添加窗口frmadd,在frmadd中的代码如何写?在frmadd窗口添加完数据后,添加后
- angle097113近来,为你上12月份排行榜第二位祝贺
- 一个着急的问题,精通fastreport的同学救命啊!
- 请问Form的Destroy和Close有什么区别?
- 一系列急问题
- 答者有分:db比dbf稳定吗?
- 再问---关于实现在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