このコマンド用に定義されている各Argumentオブジェクトを含むArgumentCollectionを戻します。
set cmd = Application.Commands("Twist")
for each a in cmd.Arguments
LogString = a.Name & ":" & a.Flags & ":"
if a.Flags = siArgumentInput or a.Flags = siArgumentInputOutput then
LogString = LogString & CStr(a.Value)
end if
LogMessage LogString
next
|