'============================================================
'				ListFileNames
'============================================================
Public Sub ListFileNames()
     
    Set A.IDocumentDatabases = Application.Document
    Set A.IEnumDataSet = A.IDocumentDatabases.Datasets

    A.IEnumDataSet.Reset
    Set A.IDataSet = A.IEnumDataSet.Next
    
    Do While Not A.IDataSet Is Nothing
        Select Case A.IDataSet.Type
        Case 5          ' Shape File
            MsgBox (A.IDataSet.Workspace.PathName & "\" & A.IDataSet.Name & ".shp")
    
        Case Else
            MsgBox A.IDataSet.Category & " " & A.IDataSet.Workspace.PathName & " " & A.IDataSet.Name
        End Select
        
        Set A.IDataSet = A.IEnumDataSet.Next
    Loop

End Sub