powerdesigner批量将name添加到comment里面的方法

'如果comment为空，则填入name；如果不为空，则保留不变。  
 
 
Option Explicit   
ValidationMode = True   
InteractiveMode = im_Batch  
 
Dim system, file  
Set system = CreateObject("Scripting.FileSystemObject")  
Dim ForReading, ForWriting, ForAppending   '打开文件选项  
ForReading   = 1 ' 只读   
ForWriting   = 2 ' 可写   
ForAppending = 8 ' 可写并追加  
'打开文本文件  
Set file = system.OpenTextFile("C:\pdcomment.txt", ForWriting, true)  
 
 
'判断当前model是否物理数据模型  
Dim mdl  
Set mdl = ActiveModel   
If (mdl Is Nothing) Then   
   MsgBox "处理对象无模型"   
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then   
   MsgBox "当前模型不是物理数据模型"   
Else   
   ProcessFolder mdl,file  
End If   
file.Close  
 
 
'******************************************************************************  
Private sub ProcessFolder(folder,file)   
 
   Dim tab 'running table  
   for each tab in folder.tables  
      if not tab.isShortcut then  
         if trim(tab.comment)="" then  
            tab.comment = tab.name  
         end if  
         Dim col  
         for each col in tab.columns  
            if trim(col.comment)="" then  
               col.comment = col.name  
            end if  
         next  
      end if  
   next  
 
   Dim view  
   for each view in folder.Views  
      if not view.isShortcut and trim(view.comment)="" then  
         view.comment = view.name  
      end if  
   next  
 
end sub