Не знаю, правильно ли я понял вопроса, программно это делается так:
dim i as long, mxd as imxdocument
set mxd=thisdocument
for i=0 to mxd.foceumap.layercount-1 ' - это количество слоев
fn=LrFileName(i) '- это имя файла источника
next
Public Function LrFileName(li As Long) As String
Dim pFL As IFeatureLayer, pDS As IDataset
Dim mxDoc As IMxDocument
Set mxDoc = ThisDocument
Set pFL = mxDoc.FocusMap.Layer(li)
Set pDS = pFL.FeatureClass
LrFileName = pDS.Workspace.PathName
End Function