如何获取项目下AssemblyInfo.vb文件路径。

ByVal p As EnvDTE.Project

Dim file As String = String.Empty
For Each item As EnvDTE.ProjectItem In p.ProjectItems
    If item.Name = "AssemblyInfo.vb" Then
        file = item.FileNames(0)
        Exit For
    End If
Next