捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
Delphi写的文件批量改名工具(无下载)
关键字:文件批量改名(源码)
来 自:原创
平 台:Win2k/XP/NT,Win2003 下载所需:0 火柴
深浅度:初级 完成时间:2009/10/9
发布者:ganbaba 发布时间:2009/10/10
编辑器:DELPHI7 语  种:简体中文
分 类:其他 下载浏览:668/10258
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(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.
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论6条 当前显示最后4条评论
redniuniu 2009/10/11 1:02:08
不错, 学习下
mxymxy 2010/7/14 11:09:37
不错,我初学时也写过。
mxymxy 2010/7/14 11:10:12
学习一下
mathsfan 2010/7/24 10:13:42
当初老婆要批量命名图片时给她写过,看了下,原理什么的都差不多。
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表