Using the Scripting runtime(scrrun.dll):
Option Explicit
Option Compare Text
Dim intSDI As Integer
Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Scripting.Folder
Dim objFile As Scripting.File
intSDI = ThisDrawing.GetVariable("SDI")
ThisDrawing.SetVariable "SDI", 0
Set objFSO = New Scripting.FileSystemObject
Set objFolder = objFSO.GetFolder("YOUR PATH")
For Each objFile In objFolder.Files
If objFile.Name Like "*.dwg" = True Then
Application.Documents.Open "YOUR PATH" & objFile.Name
ThisDrawing.Save
ThisDrawing.Close
Next objFile
ThisDrawing.SetVariable "SDI", intSDI
Regards - Nathan
