renamefile文件夹重命名问题,急,高手给看看!(100分)

kdb9813 · 2006-01-19

如果用renamefile(,'c:/test/a/b'); 后再执行renamefile('c:/test/a','c:/test/b');后, 父文件夹更改不成功,如果不关闭程序,手工改的话,提示正在使用,无法更改. 如何在改更'c:/test/a/a'后让它变成非使用状态??

SiWeiLiuLang · 2006-01-19

Renamefile是文件重命名

kdb9813 · 2006-01-19

renamefile可能重命名文件夹.已经试过了.没问题的.

chnplzh · 2006-01-19

RenameFile在SysUtils.pas单元，它引用API函数MoveFile： function RenameFile(const OldName, NewName: string): Boolean; begin {$IFDEF MSWINDOWS}  Result := MoveFile(PChar(OldName), PChar(NewName)); {$ENDIF} {$IFDEF LINUX}  Result := __rename(PChar(OldName), PChar(NewName)) = 0; {$ENDIF} end; 以下是MoveFile的使用说明： 请注意下面的说明：The new name must not already exist. A new file may be on a different file system or drive. A new directory must be on the same drive. the MoveFile function renames an existing file or a directory (including all its children). BOOL MoveFile(    LPCTSTR lpExistingFileName, // address of name of the existing file      LPCTSTR lpNewFileName // address of new name for the file   ); Parameters lpExistingFileName Points to a null-terminated string that names an existing file or directory. lpNewFileName Points to a null-terminated string that specifies the new name of a file or directory. The new name must not already exist. A new file may be on a different file system or drive. A new directory must be on the same drive. Return Values If the function succeeds, the return value is nonzero. If the function fails, the return value is zero. To get extended error information, call GetLastError. Remarks The MoveFile function will move (rename) either a file or a directory (including all its children) either in the same directory or across directories. The one caveat is that the MoveFile function will fail on directory moves when the destination is on a different volume. ：

kdb9813 · 2006-01-19

to chnplzh: 你要看清楚我的说明.

chnplzh · 2006-01-19

楼主的题目好象进行了修改。 以下是我临时写的一些代码，测试好好的。 楼主可以到这里下载： 地址: ftp.mlfjnp.com 帐户和密码均为：dfw unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin  if renamefile('c:/test/a/a','c:/test/a/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示'); end; procedure TForm1.Button2Click(Sender: TObject); begin  if renamefile('c:/test/a/b','c:/test/a/a') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示'); end; procedure TForm1.FormCreate(Sender: TObject); begin //这里只是简单写一下，没有进行出错判断  CreateDirectory('c:/test',nil);  CreateDirectory('c:/test/a',nil);  CreateDirectory('c:/test/a/a',nil); end; end.

chnplzh · 2006-01-19

哦，是父目录，重新修改了一下，测试没问题 楼主可以到这里重新下载： 地址: ftp.mlfjnp.com 帐户和密码均为：dfw unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure Button4Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin  if renamefile('c:/test/a/a','c:/test/a/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  sleep(100); end; procedure TForm1.Button2Click(Sender: TObject); begin  if renamefile('c:/test/a/b','c:/test/a/a') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  sleep(100); end; procedure TForm1.FormCreate(Sender: TObject); begin //这里只是简单写一下，没有进行出错判断  CreateDirectory('c:/test',nil);  CreateDirectory('c:/test/a',nil);  CreateDirectory('c:/test/a/a',nil); end; procedure TForm1.Button3Click(Sender: TObject); begin  if renamefile('c:/test/a','c:/test/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  sleep(100); end; procedure TForm1.Button4Click(Sender: TObject); begin  if renamefile('c:/test/b','c:/test/a') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  sleep(100); end; end.

kdb9813 · 2006-01-19

to chnplzh 我是做批量修改,有一个文件列表里面包括文件夹如何修改,而不是像你所说的那样用两个按钮分别修改,如果放在一个按扭事件里情况就不一样了: 比如: procedure TForm1.Button1Click(Sender: TObject); begin  if renamefile('c:/test/a/a','c:/test/a/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  if renamefile('c:/test/a','c:/test/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示'); end; 而且是先更改子目录,再更改父目录,注意顺序.

benhacker · 2006-01-19

用最底层的吧.安全,可靠...而且效率高.下面例子绝对可以运行.前几天我才刚写的,还热着呢.. 首先在uses中加入  ShellAPI单元 procedure TForm1.Button3Click(Sender: TObject); begin if RenFileDir('E:/test1','E:/test/')then begin showmessage('改名成功!'); end else begin showmessage('改名失败!'); end; end; function TForm1.RenFileDir(const OldName,NewName:string): boolean; var  fo: TSHFILEOPSTRUCT; begin  FillChar(fo, SizeOf(fo), 0);  with fo do  begin    Wnd := 0;    wFunc := FO_RENAME;    pFrom := PChar(OldName+#0);    pTo := pchar(NewName+#0);    fFlags := FOF_NOCONFIRMATION+FOF_SILENT+FOF_NOERRORUI;  end;  Result := (SHFileOperation(fo) = 0); end;

chnplzh · 2006-01-19

和顺序有关吗?应该不会,楼主可以重新下载我的测试代码: 楼主可以到这里重新下载： 地址: ftp.mlfjnp.com 帐户和密码均为：dfw unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    Button5: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure Button4Click(Sender: TObject);    procedure Button5Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin  if renamefile('c:/test/a/a','c:/test/a/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  sleep(100); end; procedure TForm1.Button2Click(Sender: TObject); begin  if renamefile('c:/test/a/b','c:/test/a/a') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  sleep(100); end; procedure TForm1.FormCreate(Sender: TObject); begin //这里只是简单写一下，没有进行出错判断  RemoveDir('c:/test/a/a');  RemoveDir('c:/test/a/b');  RemoveDir('c:/test/b/a');  RemoveDir('c:/test/b/b');  RemoveDir('c:/test/a');  RemoveDir('c:/test/b');  RemoveDir('c:/test');  CreateDirectory('c:/test',nil);  CreateDirectory('c:/test/a',nil);  CreateDirectory('c:/test/a/a',nil); end; procedure TForm1.Button3Click(Sender: TObject); begin  if renamefile('c:/test/a','c:/test/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  sleep(100); end; procedure TForm1.Button4Click(Sender: TObject); begin  if renamefile('c:/test/b','c:/test/a') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  sleep(100); end; procedure TForm1.Button5Click(Sender: TObject); begin if renamefile('c:/test/a/a','c:/test/a/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示');  if renamefile('c:/test/a','c:/test/b') then     Application.MessageBox('转换成功','提示')  else     Application.MessageBox('转换不成功','提示'); end; end.

kdb9813 · 2006-01-20

哈．．问题解决了．主要是我没想到是别的原因，我的程序是先批量更文件夹名再恢复回来，我提出的问题是如何恢复回来，但问题出现在先批量更文件夹名后没有closefile(sr),st:TSearchRec,结果造成＂拒绝访问＂。没把全部代码贴出来，对不住大家了。感觉各位支持。结贴！

benhacker · 2006-01-20

结贴要给分.

kdb9813 · 2006-01-20

结贴！

kdb9813 · 2006-01-20

结贴！

renamefile文件夹重命名问题,急,高手给看看!(100分)

kdb9813

Unregistered / Unconfirmed

SiWeiLiuLang

Unregistered / Unconfirmed

kdb9813

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

kdb9813

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

kdb9813

Unregistered / Unconfirmed

benhacker

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

kdb9813

Unregistered / Unconfirmed

benhacker

Unregistered / Unconfirmed

kdb9813

Unregistered / Unconfirmed

kdb9813

Unregistered / Unconfirmed

Similar threads