How to use FindBrokenLinks

Solution Partner Genius Solution Partner Genius
Solution Partner Genius

I can't create the broken links text file.

 

Here is my code :

    Sub Main()

        Dim ObjApp As RevisionManager.Application

        ObjApp = CreateObject("RevisionManager.Application")

        Dim TmpList As System.Array = System.Array.CreateInstance(GetType(Object), 1)
        TmpList(0) = "D:\_ARCHIVAGE RAPIDO\HSP\HSP_25.asm"

        Dim OutFileName As String = "D:\_ARCHIVAGE RAPIDO\BrokenLinkBefore.txt"""

        Dim NumBrokenLink As Integer = ObjApp.FindBrokenLinks(TmpList, , True, True, True, True, True, True, OutFileName, "Summary_" & OutFileName)

        ObjApp.DisplayAlerts = True
        ObjApp.Quit()
        ' Do garbage collection here in order to release the documents
        System.Runtime.InteropServices.Marshal.FinalReleaseComObject(ObjApp)
        GarbageCollection()
        ObjApp = Nothing

    End Sub

    Public Sub GarbageCollection()
        System.GC.Collect(System.GC.MaxGeneration)
        System.GC.WaitForPendingFinalizers()
        System.GC.Collect(System.GC.MaxGeneration)  'per MS, should do this again to be sure everything is released.

    End Sub

 

Did anyone manage to create this file ?


Romuald BERTIN