将附件移到本地 文件无法被创建？该怎么处理

将附件移到本地 文件无法被创建？
在用
  Dim obj As NotesEmbeddedObject
Set obj = doc.GetAttachment(attName(0)) //attName(0) 是附件的一个


Msgbox "大小is ： " & obj.FileSize

obj.ExtractFile("d:\aaa\"+attName(0))

用ExtractFile 函数转移附件的时候，后台报错：Notes error : File cannot be created

有哪位 高手 回个帖 咯~~·

------解决方案--------------------
你没有哪个目录aaa吧，现创建它再拆离附件
------解决方案--------------------
D盘没有aaa文件夹

也有可能你登陆的windows帐户没有权限创建文件