文件批量改名如何做？我用ShellExecute调用rename不成功!做过的朋友来看看! ( 积分: 30 )

X

XLR2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #1

我的目的就是把某个目录下的一批文件改名，代码如下：
procedure TfmDamlGl.Button1Click(Sender: TObject);
var
FileName1,FileName2:string;
begin
FileName1:='D:/DAGL/DAImage/test/test_0103_*.jpg' ;
FileName2:='D:/DAGL/DAImage/test/test_0104_*.jpg';
ShellExecute(Application.Handle, 'open', PChar('cmd'), PChar(' ren '+FileName1+' '+FileName2), nil, SW_hide);
end;


为什么没反应呢？文件名没改成功。

 

G

guanyue7613

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #2

function RenameFile(const OldName, NewName: string): Boolean;

 

X

XLR2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #3

guanyue7613:
RenameFile支持批量改名吗？即使用*可以吗？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #4

ShellExecute(Application.Handle, PChar('[red]open[/red]'), PChar('Command.com'), PChar('[red]/C [/red]ren '+FileName1+' '+FileName2), nil, SW_hide);

 

S

Supermay

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #5

ShellExecute(Application.Handle, PChar('[red]open[/red]'), PChar(cmd.com'), PChar('[red]/C [/red]ren '+FileName1+' '+FileName2), nil, SW_hide);
win200以上使用

www.soware.cn

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #6

你就不会用遍历文件，然后RenameFile？

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #7

不能含有*和/等字符