最近，因为项目的需要，我用Delphi开发了一个小的程序。程序的功能就是选择一个文件，而后可以指定复制多少个相同的文件，用这些复制的文件做并发上传文件用。下面附源码和可执行文件。
源码如下：
可执行文件： 文件批量复制小程序
源码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SUIButton, Buttons, StdCtrls, ExtCtrls, SUIForm, ComCtrls;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SUIButton, Buttons, StdCtrls, ExtCtrls, SUIForm, ComCtrls;
type
TForm1 = class(TForm)
suiForm1: TsuiForm;
lbl1: TLabel;
edt1: TEdit;
btn1: TSpeedButton;
lbl2: TLabel;
edt2: TEdit;
btn2: TsuiButton;
btn3: TsuiButton;
dlgOpen1: TOpenDialog;
pb1: TProgressBar;
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TForm1 = class(TForm)
suiForm1: TsuiForm;
lbl1: TLabel;
edt1: TEdit;
btn1: TSpeedButton;
lbl2: TLabel;
edt2: TEdit;
btn2: TsuiButton;
btn3: TsuiButton;
dlgOpen1: TOpenDialog;
pb1: TProgressBar;
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn2Click(Sender: TObject);
var
i:integer;
str:string;
begin
var
i:integer;
str:string;
begin
if Trim(edt1.Text)='' then begin
Application.MessageBox('请选择要复制的源文件！', '提示', MB_OK +
MB_ICONINFORMATION);
btn1.Click();
Exit;
end;
Application.MessageBox('请选择要复制的源文件！', '提示', MB_OK +
MB_ICONINFORMATION);
btn1.Click();
Exit;
end;
try
if StrToInt(edt2.Text)<=0 then begin
edt2.Clear;
edt2.SetFocus;
Exit;
end;
if StrToInt(edt2.Text)<=0 then begin
edt2.Clear;
edt2.SetFocus;
Exit;
end;
except
Application.MessageBox('请输入合法数值！', '提示', MB_OK +
MB_ICONINFORMATION);
edt2.Clear;
edt2.SetFocus;
exit;
end;
pb1.Max:=StrToInt(edt2.Text);
Application.MessageBox('请输入合法数值！', '提示', MB_OK +
MB_ICONINFORMATION);
edt2.Clear;
edt2.SetFocus;
exit;
end;
pb1.Max:=StrToInt(edt2.Text);
if not DirectoryExists('c:\测试数据') then
ForceDirectories('c:\测试数据');
ForceDirectories('c:\测试数据');
for i:=1 to StrToInt(edt2.Text) do
begin
try
str:='c:\测试数据\'+Copy(ExtractFileName(edt1.Text),1,Length(ExtractFileName(edt1.Text))-4)+inttostr(i)+Copy(ExtractFileName(edt1.Text),Length(ExtractFileName(edt1.Text))-4+1,4);
CopyFile(PChar(edt1.text),PChar(str),False);
pb1.Position:=i;
except
end;
end;
Application.MessageBox('文件生成完毕,数据存放于"c:\测试数据"目录！', '提示', MB_OK +
MB_ICONINFORMATION);
end;
begin
try
str:='c:\测试数据\'+Copy(ExtractFileName(edt1.Text),1,Length(ExtractFileName(edt1.Text))-4)+inttostr(i)+Copy(ExtractFileName(edt1.Text),Length(ExtractFileName(edt1.Text))-4+1,4);
CopyFile(PChar(edt1.text),PChar(str),False);
pb1.Position:=i;
except
end;
end;
Application.MessageBox('文件生成完毕,数据存放于"c:\测试数据"目录！', '提示', MB_OK +
MB_ICONINFORMATION);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
dlgOpen1.Execute;
edt1.Text:=dlgOpen1.FileName;
end;
begin
dlgOpen1.Execute;
edt1.Text:=dlgOpen1.FileName;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Application.Terminate;
end;
begin
Application.Terminate;
end;
end.
可执行文件： 文件批量复制小程序
本文转自 fish_yy 51CTO博客，原文链接：http://blog.51cto.com/tester2test/211302，如需转载请自行联系原作者
