option explicit
ValidationMode = true
InteractiveMode = im_Batch

dim mdl ' the current model

' get the current active model
set mdl = ActiveModel
if mdl is nothing then
  msgBox "There is no current Model"
elseif not mdl.isKindOf(PdPDM.cls_Model) then
  msgBox "The current model is not an Physical Data model."
else
  dim mapTable ' Map for all tables
  set mapTable = createObject("Scripting.Dictionary")
  
  ' Заполнение списка таблиц.
  fillTableMap mapTable, mdl
  
  ' Вывод свойства CODE таблицы.
  output mapTable("MY_TABLE").code
end if  

private sub fillTableMap(mapTable, folder)
  dim tab     'running table  
  for each tab in folder.tables
    if not tab.isShortcut then
      'Add table to map
      mapTable.add tab.name, tab  
    end if
  next
  
  ' Go into the sub-packages
  dim childFolder ' running folder
  for each childFolder in folder.Packages
     if not childFolder.IsShortcut then
        fillTableMap mapTable, childFolder
     end if
  next  
end sub