COPYでコピー元の配列の要素数が0の場合Subscript out of rangeとなります。 お願い致します。