盒子 - Delphi写的文件批量改名工具（无下载）

			捐赠 \| 广告 \| 注册 \| 发布 \| 上传 \| 关于我们
		粤ICP备10103342号-1	DELPHI盒子 \| 盒子文章 \| 盒子问答悬赏 \| 最新更新 \| 盒子检索 \| 下载中心 \| 高级搜索
		粤ICP备10103342号-1	精品专区 \| 繁體中文 \| 奖励公告栏 \| 直通车账号登陆 \| 关闭GOOGLE广告 \| 临时留言

盒子资源分类

全部展开 - 全部合拢

盒子资源分类大树

Delphi写的文件批量改名工具（无下载）

关键字：文件批量改名(源码)
来　自：原创
平　台：Win2k/XP/NT,Win2003	下载所需：0 火柴
深浅度：初级	完成时间：2009/10/9
发布者：ganbaba	发布时间：2009/10/10
编辑器：DELPHI7	语　　种：简体中文
分　类：其他	下载浏览：684/13858

加入到我的收藏

下载错误报错

登陆以后才能下载

用户名：

密　码：

自动登陆(30天有效)

本人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.

本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！

龙脉加密锁 15元起

Grid++Report 报表

申请支付@网

没有相关文章

			捐赠 \| 广告 \| 注册 \| 发布 \| 上传 \| 关于我们
		粤ICP备10103342号-1	DELPHI盒子 \| 盒子文章 \| 盒子问答悬赏 \| 最新更新 \| 盒子检索 \| 下载中心 \| 高级搜索
		粤ICP备10103342号-1	精品专区 \| 繁體中文 \| 奖励公告栏 \| 直通车账号登陆 \| 关闭GOOGLE广告 \| 临时留言


		DELPHI盒子版权所有技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1