请问大虾在用MAPI控件接收邮件的时候，怎么将收到的附件保存到指定目录下？

Question

If MAPIMessages1.AttachmentCount >= 1 Then
                    For ii = 0 To MAPIMessages1.AttachmentCount - 1
                        MAPIMessages1.AttachmentIndex = ii
                        TMP = Split(MAPIMessages1.AttachmentName, "\")
                        TMP1 = Split(TMP(UBound(TMP)), ".")
                        CommonDialog1.Filter = TMP1(UBound(TMP1)) & "|*." & TMP1(UBound(TMP1))
                        CommonDialog1.FileName = TMP(UBound(TMP))
                        CommonDialog1.ShowSave
                        FileCopy MAPIMessages1.AttachmentName, CommonDialog1.FileName
                    Next ii
                End If