[quote user="James Manfield"]What I am trying to do is create a vba script which runs through a number of subfolders, opens the dgn files in them and displays all levels in a specific reference attachment ("3D-modell") in a specific model ("Drawings")
Set myDGN = oMSAPP.OpenDesignFileForProgram(FSOFile.Path, False)[/quote]
What happens if you use...
Set myDGN = oMSAPP.OpenDesignFile (FSOFile.Path, False)
Windows Scripting
[quote user="James Manfield"]Set myFSO = CreateObject("Scripting.FileSystemObject")[/quote]
Not related to your problem, buy if you add a reference to the Windows Scripting Runtime, you benefit from InstelliSense among other things...
