vbs

 

Option Explicit
   ValidationMode = True
   InteractiveMode = im_Batch
 Dim mdl
 Set mdl = ActiveModel
  If(mdl Is Nothing) Then 
  MsgBox " there is no current model"
  ElseIf  Not mdl.IsKindOf(PdPDM.cls_Model) Then
  MsgBox " there is not an physical data model"
  Else ProcessFolder mdl
  End If
  
  Private sub ProcessFolder(folder)
   Dim Tab 
   for each Tab in folder.tables
      Dim col 
      for each col in tab.columns
        
         MsgBox "table "+ tab
         next
         
       next
End sub