想请问下：就是某个邮件服务器下有个mail文件夹，怎么取到那个文件夹里所有文件的文件名和文件标题？

Sub Initialize
    On Error Goto errproc
    Dim Session As New NotesSession
    Dim Dire As NotesDbDirectory
    Dim Db As NotesDatabase
    Dim mACL As NotesACL
    Dim mACLEntry As NotesACLEntry
    Dim Collection As NotesDocumentCollection
    Dim curdb As NotesDatabase
    Dim view As NotesView    
    Dim doc As NotesDocument
    Dim myACL As NotesACL
    Dim myACLEntry As NotesACLEntry
    Dim viewpz As notesview
    Dim docpz As notesdocument
    'Dim mUtil As Variant
    'Dim item As notesitem
    'Dim DirName As notesitem
    
    Dim FileName As String
    Dim Index As Integer
    
    Index = 1
    
    ServerStr$ = Inputbox("Name of server(eg:test/test)?", "Server")
    If ServerStr$ ="" Then
        Msgbox "输入服务器Server才能继续执行！"
        Exit Sub
    End If
    
    
    DirName$ = Inputbox("Name of Directory(eg:testoa)?", "Directory")
    If DirName$ ="" Then
        Msgbox "输入服务器Directory才能继续执行！"
        Exit Sub
    End If    
    
    
    
    Index = 1
    
    Dim excelApp As Variant
    Dim excelWorkbook As Variant
    Dim excelSheet As Variant
    Set excelApp=CreateObject("Excel.Application")
    excelApp.Visible = True
    Set excelWorkbook = excelApp.Workbooks.Add
    Set excelSheet = excelWorkbook.Worksheets("Sheet1")
    excelSheet.Cells(1,1).Value = "数据库名称"
    excelSheet.Cells(1,2).Value = "文件目录"
    excelSheet.Cells(1,3).Value = "文件名"
    excelSheet.Cells(1,4).Value = "文档数"
    excelSheet.Cells(1,5).Value = "文件大小(M)"
    
    
    Set Dire = Session.GetDbDirectory(ServerStr$)
    Set Db = Dire.GetFirstDatabase(DATABASE)
    While Not Db Is Nothing
        
        If Instr(db.FilePath,DirName$+"\")>0 Then
            Index = Index + 1     
            excelSheet.Cells(Index,1).Value = Db.title
            excelSheet.Cells(Index,2).Value = Db.FilePath
            excelSheet.Cells(Index,3).Value = Db.filename
            Call Db.open("", "")
            excelSheet.Cells(Index,4).Value = Db.AllDocuments.Count
            tmp# = 1024^2
            excelSheet.Cells(Index,5).Value = Db.size/tmp#
            
        End If        
        Set Db = Dire.GetNextDatabase
    Wend
    
    
    Exit Sub
    
    
errproc:    
    Msgbox "Error:"+Error$+" in Line:"+Cstr(Erl())
    If Not (excelApp Is Nothing) Then
        excelApp.DisplayAlerts = False
        excelApp.Quit
        Set excelApp= Nothing
    End If 
    Msgbox "Error:"+Error$+" in Line:"+Cstr(Erl())
End Sub