#default:filetype2
@script VBScript
Function OnClick(ByRef clickData)
sizeIdx = -1
sizeAutoIdx = -1
disksizeIdx = -1
disksizeAutoIdx = -1
idx = 0
For Each colItem in clickData.func.sourcetab.format.columns
If (colItem.name = "size") Then sizeIdx = idx
If (colItem.name = "sizeauto") Then sizeAutoIdx = idx
If (colItem.name = "disksize") Then disksizeIdx = idx
If (colItem.name = "disksizeauto") Then disksizeAutoIdx = idx
idx = idx + 1
Next
Set cmd = clickData.func.command
If (sizeIdx <> -1 And sizeAutoIdx = -1) Then
cmd.RunCommand "Set COLUMNSREMOVE=size COLUMNSADD=sizeauto(" & sizeIdx & ")"
ElseIf (sizeIdx = -1 And sizeAutoIdx <> -1) Then
cmd.RunCommand "Set COLUMNSREMOVE=sizeauto COLUMNSADD=size(" & sizeAutoIdx & ")"
End If
If (disksizeIdx <> -1 And disksizeAutoIdx = -1) Then
cmd.RunCommand "Set COLUMNSREMOVE=disksize COLUMNSADD=disksizeauto(" & disksizeIdx & ")"
ElseIf (disksizeIdx = -1 And disksizeAutoIdx <> -1) Then
cmd.RunCommand "Set COLUMNSREMOVE=disksizeauto COLUMNSADD=disksize(" & disksizeAutoIdx & ")"
End If
End Function