HanDs
管理员

[Delphi文章] 文件批量改名工具 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

本人delphi业余初学爱好者写的,高手就不要看了,怕你们做恶梦^-^

介绍就不用了吧,呵呵

注代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,   StdCtrls, Menus,FileCtrl;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure cxButton1Click(Sender: TObject);
    function  RenameFileEx(Dir1,Ext1:   String):   Boolean;
    procedure cxButton2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Dir1:String;
implementation

{$R *.dfm}
function   TForm1.RenameFileEx(Dir1,Ext1:   String):   Boolean;
  var
      search:   TSearchRec;
      ret:   integer;
      key:   string;
      Bname:    string;
  begin
      if   Dir1[Length(Dir1)]   <>   '\'   then
          Dir1   :=   Dir1   +   '\';

      key   :=   Dir1   +   '*.*';
      ret   :=   findFirst(key,   faanyfile,   search);
      while   ret   =   0   do   begin
          if   ((search.Attr   and   fadirectory)   =   faDirectory)
          then   begin
          if   (Search.Name   <>   '.')   and   (Search.name   <>   '..')   then
          RenameFileEx(Dir1   +   Search.name,Ext1);
          end   else   begin
          if   ((search.attr   and   fadirectory)   <>   fadirectory)   then
          begin
          Bname:=ChangeFileExt(Dir1+search.Name,'.'+Ext1);
          RenameFile(Dir1+search.Name,Bname);
          
          end;
          end;
          ret   :=   FindNext(search);
      end;
      findClose(search);

      result   :=   True;
  end;

procedure TForm1.cxButton1Click(Sender: TObject);
begin
    SelectDirectory('请选择文件夹','',Dir1);
    edit2.Text:=Dir1;
end;
procedure TForm1.cxButton2Click(Sender: TObject);
var aa:string;
begin
    try
       RenameFileEx(Trim(edit2.Text),Trim(edit1.Text));
    except
         ShowMessage('没有输入目标目录!');
       end;
    

end;


procedure TForm1.Button2Click(Sender: TObject);
var aa:string;
begin
    try
       RenameFileEx(Trim(edit2.Text),Trim(edit1.Text));
    except
         ShowMessage('没有输入目标目录!');
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SelectDirectory('请选择文件夹','',Dir1);
    edit2.Text:=Dir1;
end;

end.


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
文件 批量 改名 工具
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复