멜에 attach된 파일을 자기가 원하는 디렉토리에 저장하는 방법을 알고 싶네여...

어찌하나여...



for Loop := 0 to Msg.AttachList.Count - 1 do

begin

if Msg.AttachList[Loop].Decoded.Size = 0 then

Msg.AttachList[Loop].Decode;

lbfiles.Items.Add(Msg.AttachList[Loop].FileName+ #32'('+ IntToStr(Msg.AttachList[Loop].Decoded.Size)+')'#32+ Msg.AttachList[Loop].AttachInfo);

end;



Screen.Cursor := crHourGlass;

if not DirectoryExists(Getcurrentdir+'directory') then

if not CreateDir(Getcurrentdir+'directory') then

begin

ShowMessage('폴더가 없습니다...');

exit;

end else

for I := 0 to Msg.AttachList.Count - 1 do

begin

// 이 부분이 잘 안되는군요...

end;



그러니깐 리스트 박스(lbfiles)에 까정 파일이름하구 정보가 나타나는데.. 그걸 디렉토리까정 저장이되지 않는군요...

고수님들의 한수 부탁드립니다...