怎么把文件夹得所有文件拷贝到另一个文件夹里找家庭财务管理软件

库存管理软件版1楼: 同题。最好给一段源码

2楼: 是不是做备份呢？
我是用VFP完成的: copy file d:＼abc＼*.* to e:＼bak＼*.* 如电脑配件进销存

3楼: 用XCOPY更好...XCOPY 源文件夹目的文件夹参数/d /e /y /f
procedure TForm1.Button1Click(Sender: TObject);
var cmd :string;
begin
cmd :=＇＇/k xcopy ＇＇+ Edit1.Text +＇＇＇＇+ Edit2.Text +＇＇ /d /e /y /f ＇＇;
ShellExecute(Handle, ＇＇open＇＇, PChar(＇＇cmd.exe＇＇), PChar(cmd), nil, SW_SHOW)
end;

4楼: //备份数据库
procedure TfrmBack_Rever_Data.Bu_BackClick(Sender: TObject);
var
Bfile,Efile : String;
Str: String;
FileName :String;
inifile:Tinifile;
Str_Info :String;
begin
if not DirectoryExists(＇＇D:＼BackupData＇＇) then
CreateDir(＇＇D:＼BackupData＇＇);

FileName:=ExtractFilePath(paramstr(0))+＇＇Config.ini＇＇;;
inifile:=Tinifile.Create(FileName);
Str:=ExtractFilePath(Application.Exename)+inifile.ReadString(＇＇ConfigSet＇＇,＇＇Data＇＇,＇＇＇＇); //copy before
// Str1:=inifile.ReadString(＇＇Conn＇＇,＇＇2＇＇,＇＇＇＇); //copy after
Bfile :=Str;
Efile :=＇＇D:＼BackupData＼＇＇+DateToStr(dtp_Date.Date)+＇＇.Dat＇＇;
CopyFile(pchar(Bfile),pchar(Efile),false);
Str_Info :=＇＇【＇＇+DateToStr(dtp_Date.Date)+＇＇】数据库备份成功！＇＇;
ShowMessage(Str_Info);
end;

5楼: ron_xin 大侠的作法最好。

6楼: to ron_xin
是蛮好的
但是拷贝完之后这么关掉DOS窗口啊？？
谢谢~~

库存管理软件版7楼: 我也是新手来的...至于关掉DOS窗口我也不知道呀...看看其它人有没更好的方法吧...

8楼: 不会吧！那知道怎么判断文件拷贝完了呢？？

9楼: 写一个函数，执行批处理，然后删除
procedure ExecBat;
var
F: TextFile;
sBat: string;
cmd :string;
begin
sBat := Trim(ExtractFilePath(Application.ExeName)) + ＇＇~Exec.bat＇＇;
cmd :=＇＇/k xcopy ＇＇+ Edit1.Text +＇＇＇＇+ Edit2.Text +＇＇ /d /e /y /f ＇＇;
AssignFile(F, sBat);
Rewrite(F);
Writeln(F, cmd);
Writeln(F, ＇＇del %0＇＇);
CloseFile(F);