Sub shelftest1_FSCommand(ByVal command, ByVal args)
    call shelftest1_DoFSCommand(command, args)
end sub