iLogic help + Accessing the File name of a referenced document.

[MechMachineMan]

I'm trying to make a list of all referenced / referencing documents and currently all it does is show up blank, as if it is skipping over the whole For section.

Please take a look and advise me on what I'm doing wrong.

SubMain()

oWrite = System.IO.File.CreateText("C:\Users\FILE NAME HERE"&".txt")

oDoc=ThisDoc.Document

Fori=1To 100

    oWrite.WriteLine(i)

    Next

Forj=1TooDoc.AllReferencingDocuments.Count

    DimoRefAsDocument = oDoc.AllReferencingDocuments.Item(j)

    oWrite.WriteLine(oRef.FullFileName)

    Next

oWrite.Close

End Sub

[rossano_praderi · Accepted solution]

Hi, I think this can be your solution...

Sub Main()

oWrite = System.IO.File.CreateText("d:\test.txt") ' Change the filename as you like
oDoc = ThisDoc.Document
 
For j = 1 To oDoc.AllReferencedDocuments.Count
    oWrite.WriteLine(j & ") " & oDoc.AllReferencedDocuments.Item(j).FullFileName)
Next

' ******* if you want the first level referenced documents then this is your option *********
'For j = 1 To oDoc.AllReferencedDocuments.Count
'    oWrite.WriteLine(j & ") " & oDoc.AllReferencedDocuments.Item(j).FullFileName)
'Next

oWrite.Close
End Sub

Bregs

Rossano Praderi

[rossano_praderi]

I made a mistake...this is the correction for part of my posted code....sorry.

' ******* if you want the first level referenced documents then this is your option *********
'For j = 1 To oDoc.ReferencedDocuments.Count
'    oWrite.WriteLine(j & ") " & oDoc.ReferencedDocuments.Item(j).FullFileName)
'Next

Bregs

Rossano Praderi

[MechMachineMan]

Thanks! That seems to have done it. Was getting random Invalid errors because my indexing was off, then was not printing any info due to me using the wrong document object/referencing.

Now that it's working... Time to figure out how to put it in a drawing table!

[rossano_praderi]

Hi, I'm glad to be helpful.

Bregs
Rossano Praderi