PowerDesigner script: Delete unused data Items

Script
'*****************************************************************************
' File: Delete useless data items.vbs
' Version: 1.0
' Copyright: Floodzhu (floodzhu@hotmail.com), 2005.1.6
' Function: traverse the conceptual model and delete the useless data items.
'*****************************************************************************
Dim index
index = 0

Dim model ' current model '
Set model = Activemodel


If (model is nothing) Then
MsgBox "There are currently no active models. "
ElseIf not model. IsKindOf (Pdcdm.cls_model) Then
MsgBox "The current model is not a conceptual model. "
Else
View model
MsgBox Index & "a useless field was deleted. "
End If

'*****************************************************************************
' Function: View
' Function: Recursive traversal
'*****************************************************************************
Sub View (folder)
Dim item
For each item in folder. Dataitems
If not item. Isshortcut Then
VISIT Item
End If
Next

' Recursively for subdirectories
Dim subfolder
For each subfolder in folder. Packages
View subfolder
Next
End Sub

'*****************************************************************************
' Function: Visit
' Function: Processing node
'*****************************************************************************
Sub Visit (node)
If node. Usedby= "" Then
Node.delete
index = index + 1
End If
End Sub