Vb6 在VB中将多个文件附加到电子邮件

我想使用以下代码将文件夹中的所有excel文件添加到电子邮件中：

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

Set MItem = OutlookApp.CreateItem(olMailItem)
MItem.Display
With MItem
.Bcc = EmailAddr
.Subject = Subj
.Body = Msg
For Each File In fs.GetFolder(CurDir&"Final").Files
    If fs.GetExtensionName(File) = "xlsx" Then
    .Attachments.Add File
    End If
Next 
.Importance = 2
.Send
End With


Set MItem = Nothing
Set OutlookApp = Nothing
Set fso = Nothing

但是，我得到的“错误”对象不支持此属性或方法

当我附加单个文件时，它正在工作

---

有什么我遗漏的吗？提前谢谢你的帮助！

给出这样的文件路径。Attachments.Add file.path和tryMany谢谢Balasubramaniyan！它确实有效！！