このコマンド用に定義されている各Argumentオブジェクトを含むArgumentCollectionを戻します。
// get accessor ArgumentCollection rtn = Command.Arguments; // set accessor Command.Arguments = 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 |