How to solve this problem about just only ready one attachment from lotus notes

this is my code:
While doc IsNot Nothing

For Each item As Domino.NotesItem In CType(doc.Items,Object())
If(CType(doc.GetItemValue(“Subject”),Object())(0).ToString.Trim = (“Uipath 123”).Trim And CType(doc.GetItemValue(“PostedDate”),Object())(0).ToString.Contains(“2019-08-27”) )
Console.WriteLine(“第”+count.ToString+“封:”)
Console.WriteLine(“主题”+CType(doc.GetItemValue(“Subject”),Object())(0).ToString)
Console.WriteLine(“发件人”+CType(doc.GetItemValue(“From”),Object())(0).ToString)
Console.WriteLine(“内容”+CType(doc.GetItemValue(“Body”),Object())(0).ToString)
Console.WriteLine(“附件操作”)
If(doc.HasEmbedded) Then
Dim fileCount As Int32 =CType(doc.GetItemValue("$FILE"),Object()).Length
If(fileCount>0) Then
While fileCount>0
fileCount = fileCount-1
Dim fileN As String =CType(doc.GetItemValue("$FILE"),Object())(fileCount).ToString
Dim file As Domino.NotesEmbeddedObject =doc.GetAttachment(fileN)
fileN = Path.Combine(“C:\Users\Administrator\desktop\postfile”,fileN)
file.ExtractFile(fileN)
End While
End If
End If
End If
Next
count = count +1
doc=nv.GetNextDocument(doc)
End While

but just get the first attachment,the second and third no found! why?