vbs
程序员文章站
2022-03-04 20:28:34
...
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
上一篇: 详解Python中.py文件打包成exe可执行文件实例代码
下一篇: 新手学python用什么书