关于电子邮件保存附件的问题？

关于电子邮件保存附件的问题？
在保存附件时：我用了如下代码：
if savedialog1.execute then
begin
if savedialog1.filename<>'' then
TIdAttachment(msg.MessageParts.Items[index]).SaveToFile(savedialog1.filename);
end;
程序可以正常执行。
但是我想为了方便不在每次接收：附件都选择保存路径及文件名，想通过一个动态变化的字符串来代替
所有附件保存路径及文件名将程序改为如下；
TIdAttachment(msg.MessageParts.Item[index].SavetoFile(ls_directory);
在执行时总是出现：error saving Attchment.附件保存错误的提示。请问我该如何解决？


----------------------------------------------
给我一片天空，我就能敖翔。携手共进，开创美好未来。