아래의 코딩을 참고하세요...



procedure TForm1.Button1Click(Sender: TObject);

var

i : integer;

begin

if FileListBox1.SelCount > 0 then // 선택된 것이 있는지 체크 한다

for i := 0 to FileListBox1.Items.Count - 1 do

begin

if FileLIstBox1.Selected[i] then

ListBox1.Items.Add(DirectoryListBox1.Directory + '' +

FileListBox1.Items[i]);

end

else

for i := 0 to FileListBox1.Items.Count - 1 do

begin

ListBox1.Items.Add(DirectoryListBox1.Directory + '' +

FileListBox1.Items[i]);

end;

end;



조갑손 께서 말씀하시기를...

> FileListBox와 ListBox가 있는데 이와 관련해서 몇 가지 질문을 드리겠습니다.

>

> 1. FileListBox에서 여러 개의 파일을 선택하고 버튼을 클릭하면

> ListBox에 나타나도록 하고 싶습니다. (경로를 포함한 전체 파일명 그대로...)

>

> 2. FileListBox에 나타난 파일들을 선택하지 않은 상태에서 버튼을 누르면

> 그대로 모든 파일들이 ListBox에 나타나도록 하고 싶은데 이것도 쉽지가 않네요...

> (역시 경로를 포함한 파일명이...)

>