Registered forum members do not see this ad.
I wrote a macro that cycles through all .dwg files in current drawing's directory and gathers certain information. It worked perfectly for almost a year, but all of a sudden, this week it stopped working and I get the following error message:
"ActiveX component can't create object".
The part of the code that causes the error is this:
Please help!Code:Dim NextFile As String Dim DrawingPath As String DrawingPath = ThisDrawing.Path & "\" NextFile = Dir(DrawingPath & "*.dwg") GetObject (DrawingPath & NextFile)