UC知道listbox中文件拷贝到directorylistbox
来源：百度知道 编辑：UC知道 时间：2024/09/23 05:31:01
我需要把delphi中listbox控件的批量文件拷贝到directorylistbox所选的文件路径中，用什么函数，代码怎么编写
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=0 to ListBox.Items.Count-1 do
CopyFile(路径+'\'+pChar(ListBox.Items[i]),pChar(DirectoryListBox1.DirLabel)+'\'+pChar(ListBox1.Items[i]),true);
end;