Delphi rename all file in a directory

最新推荐文章于 2019-08-13 12:07:00 发布

姚军权

最新推荐文章于 2019-08-13 12:07:00 发布

阅读量2.7k

点赞数

分类专栏： 5.3Delphi 文章标签： delphi file integer forms windows

本文链接：https://blog.csdn.net/chinayaosir/article/details/4292430

版权

5.3Delphi 专栏收录该内容

6 篇文章 1 订阅

订阅专栏

unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls, ExtCtrls, StdCtrls, Grids, Outline,
DirOutln;

type
TMainForm = class(TForm)
    DirView: TShellTreeView;
    FileView: TShellListView;
    Panel1: TPanel;
    btnChange: TButton;
    Splitter1: TSplitter;
    Label2: TLabel;

    procedure btnChangeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
MainForm: TMainForm;

implementation

uses Help;

{$R *.dfm}

procedure TMainForm.btnChangeClick(Sender: TObject);
var
   i,n: Integer;
objectfilename, sourcefilename,newfile,sPath: String;
begin
//waring!
    if Application.MessageBox('do you true rename?','OK', MB_YESNO) = IDNO then
      Exit;

    objectfilename := '';
    newfile:='';
    //get filedirctory
    if (FileView.Items.Count > 0) then
      sPath := ExtractFilePath(FileView.Folders[0].pathname);    //filepath
    //rename begin
    for i:=0 to FileView.Items.Count-1 do
    begin
      sourcefilename := FileView.Folders[i].pathname;
      //ShowMessage('sourcefilename= '+sourcefilename);
      n := Length(ExtractFileExt(sourcefilename));
     objectfilename:=ExtractFileName(sourcefilename); //filename
       //repalce()
      objectfilename:= stringReplace(objectfilename,#32,'-',[rfReplaceAll]);
      objectfilename:= stringReplace(objectfilename,'---','-',[rfReplaceAll]);
      objectfilename:= stringReplace(objectfilename,'--','-',[rfReplaceAll]);

      newfile := sPath + objectfilename    ;
     // ShowMessage('newfile= '+newfile);
      RenameFile(sourcefilename, newfile);
    end;
    ShowMessage('work end!');
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
DirView.SetVisiblePath(ExtractFilePath(Application.ExeName));
end;

end.