关于接收电子邮件附付的问题？(10分)

在保存附件时：我用了如下代码：
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.附件保存错误的提示。请问我该如何解决？
[em24][em24][em24]