一个文件重复生成的小工具[附源码和可执行文件]

最近,因为项目的需要,我用Delphi开发了一个小的程序。程序的功能就是选择一个文件,而后可以指定复制多少个相同的文件,用这些复制的文件做并发上传文件用。下面附源码和可执行文件。

源码如下:


 

unit Unit1;
interface
uses
  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;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn2Click(Sender: TObject);
var
  i:integer;
  str:string;
begin
  if Trim(edt1.Text)='' then begin
    Application.MessageBox('请选择要复制的源文件!', '提示', MB_OK +
      MB_ICONINFORMATION);
    btn1.Click();
    Exit;
  end;
  try
    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);
  if not DirectoryExists('c:/测试数据') then
    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;
procedure TForm1.btn1Click(Sender: TObject);
begin
     dlgOpen1.Execute;
     edt1.Text:=dlgOpen1.FileName;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
     Application.Terminate;
end;
end.



可执行文件:文件批量复制小程序

 

发布了27 篇原创文章 · 获赞 0 · 访问量 4万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览