請問一下：

用RenameFile去改檔名時，改完檔名後，被改過檔名的檔會跑到我放我這個程式的同一層資料夾裡去。

有沒有什麼辦法可以處裡這個問題？


[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to ShellListView1.Items.Count-1 do begin
if ShellListView1.Items[i].Selected then begin
edit1.text:=ShellListView1.Folders[i].PathName;
if trim(edit2.text)<>'' then begin
if RenameFile(edit1.text,edit2.text) then
ShowMessage('改名成功')
else
showMessage('失敗 : ' IntToStr(GetLastError));
label1.Caption:=edit2.Text;
end;
end;
end;
end;[/code]

編輯記錄

不知道你的 edit2.text 是如何下的, 在 edit2.text 前加入 edit1 的路徑應該就可以了!
可參考 ExtractFilePath(), ExtractFileName()