小弟我用Filelistbox取出資料夾的檔案 然後想要用滑鼠點選我想要複製的多筆檔案 然後點選button進行複製 但是每次都只複製到最後一筆 下面是我的程式碼 請各位幫我看看哪裡不合理了 謝謝唷 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin if directorylistbox1.Directory=directorylistbox2.Directory then begin showmessage('相同目錄') ;//相同目錄不進行複製 end else begin for i:=0 to filelistbox1.Items.Count-1 do begin case filelistbox1.Selected[i] of true :copyfile( pchar(filelistbox1.FileName),pchar( filelistbox2.Directory '\' extractfilename(filelistbox1.FileName)),false ); end;//如果點選;則進行複製 end; end; end; 何需Coding爭峰 千人指 萬人鋒 敢問Coding頂峰 三尺秋水塵不染 天下無雙

------
何需Coding爭峰
千人指 萬人鋒
敢問Coding頂峰
三尺秋水塵不染
天下無雙

您好: 幫您改了一下,將Source,Target獨立出來比較好看出問題點,您使用FileName他是目前所選的檔案所以當然永遠 都只Copy最後一個檔案,您要用檢查的方式,然後將所選到的檔名抓出來這樣才可以.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Source,Target:String;
begin
if directorylistbox1.Directory=directorylistbox2.Directory then
 begin
  showmessage('相同目錄') ;//相同目錄不進行複製
  end
  else begin
   for i:=0 to filelistbox1.Items.Count-1 do
    begin
     if (filelistbox1.Selected[i]) then
      begin
       Source:=filelistbox1.Directory '\' filelistbox1.Items.Strings[i];
       Target:=filelistbox2.Directory '\' filelistbox1.Items.Strings[i];
       copyfile(pchar(Source),PChar(Target),false );
      end;//如果點選;則進行複製
   end;
 end;
end;