如何把某一目录下的所有文件的文件名加入到ListBox中且该目录下的文件个数不确定?

Question

FileListBox我找到了！谢谢！
顺便再问一个问题：当我知道了一个文件的路径后如（‘c:\123.bmp'），如何把这个文件复制到指定的目录下如（c:\program\)?注意不要调用copy.exe文件复制，自己写程序来复制?
此问题解决之后一定给分！

Answer 1

给你一个函数：
//Copy 多个文件的处理：
function CopyFiles(const Source,Dest: string): boolean;
var
  fo: TSHFILEOPSTRUCT;
begin
  FillChar(fo, SizeOf(fo), 0);
  with fo do
  begin
    Wnd := 0;
    wFunc := FO_COPY;
    pFrom := @source[1];
    pTo :=pchar(dest);
    fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR    ;
  end;
  Result := (SHFileOperation(fo) = 0);
end;

Answer 2

copy.exe在哪儿?:)
程序见楼上

Answer 3

Bob7946(X度空间):
    运行时出错：undeclared identifier 'TSHFILEOPSTRUCT'
    请问 TSHFILEOPSTRUCT引用的是哪个单元?

Answer 4

另外你还要不要 如何把某一目录下的所有文件的文件名加入到ListBox中且该目录下的文件个数不确定 这个问题的代码？

Answer 5

用FindFirstFile和FindNextFile函数将某一目录下的
文件名查找出来,再添加到ListBox中去

Answer 6

truezerg(赵明宇)　:
   麻繁你用流将一个文件读出，然后再写到另一个你新建的文件上及把某一目录下的所有文件的文件名加入到ListBox中且该目录下的文件个数不确定 这个问题的代码贴出来，好吗？先谢了！

Answer 7

用TPersistent的类的Assign对象。