如c:\dir1\dir2\(dir2是在c:\dir1下的目錄) 要把dir2改名為dir3 請問要如何作? 「堅持」從洗馬桶做起 Aric

function SetCurrentDir(const Dir: string): Boolean; Description The SetCurrentDir function sets the current directory. The return value is True if the current directory was successfully changed, or False if an error occurred. ex: SetCurrentDir('c:\dir1\dir3\'); --- Everything I say is a lie.

hagar大大 小弟主要是想改變目錄的名稱(rename a directory) 您說的這個涵數是不是指向一個目錄的位置? 「堅持」從洗馬桶做起 Aric

uses 
  ShellApi;     procedure RenameDir(DirFrom, DirTo: string); 
var 
  shellinfo: TSHFileOpStruct; 
begin 
  with shellinfo do 
  begin 
    Wnd    := 0; 
    wFunc  := FO_RENAME; 
    pFrom  := PChar(DirFrom); 
    pTo    := PChar(DirTo); 
    fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or 
              FOF_SILENT or FOF_NOCONFIRMATION; 
  end; 
  SHFileOperation(shellinfo); 
end;     procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RenameDir('C:\Dir1\Dir2', 'C:\Dir1\Dir3'); 
end; 

--- Everything I say is a lie.

原來SHFileOperation rename不只對檔案而以 肛恩 「堅持」從洗馬桶做起 Aric

不好意思，我試過目錄底下目錄可以 但是根目錄下面的就不行耶 例如 RenameDir('d:\tmp1', 'd:\tmp123'); JackTasy

------
JackTasy

小弟試是可以的, 可用如下的方式來檢查為何不成功:

procedure TForm1.Button4Click(Sender: TObject);
begin
  if not MoveFile(PChar('C:\temp1'), PChar('C:\temp123')) then
    ShowMessage(SysErrorMessage(GetLastError))
  else
    ShowMessage('更改目錄名成功');
end;

--- Everything I say is a lie.

小弟也做了測試 如下所showmessage才會正確 不過其怪的很昨日也用 renamedir('c:\temp1','c:\temp123'); 確實不能改 但今日卻能改 這應該又是個我不知道原因的系統資源問題

procedure TForm1.Button1Click(Sender: TObject);
begin
 renamedir('c:temp1\temp1','c:temp1\temp123');//磁碟名後不能有'\'字元
//或renamedir('c:temp1','c:temp123');
  if not MoveFile(PChar('c:\temp1\temp1'), PChar('c:\temp1\temp123')) then
    ShowMessage(SysErrorMessage(GetLastError))
  else
    ShowMessage('更改目錄名成功');
end;

「堅持」從洗馬桶做起 Aric

剛才又試了一次
RenameDir('d:tmp1', 'd:tmp123');  還是不行
換成下面的就可以了....
 if not MoveFile(PChar('d:\tmp1'), PChar('d:\tmp123')) then
    ShowMessage(SysErrorMessage(GetLastError))
  else
    ShowMessage('更改目錄名成功');    不知名的原因...不過就用 MoveFile 吧!    

JackTasy

------
JackTasy