文字列領域が不足 (ID:121228)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。 文字列型の配列を宣言しLOOP処理中にその領域に文字列を挿入しています。 あるところになると以下のメッセージが表示され処理が中断されます。 「文字列領域が不足しています。」 Dim strdata() as string Dim i as integer Redim strdata(0) as string i = 1 Do Redim Preserve strdata(i) as string strdata(i) = "a" i = i + 1 If i = 10000 Then Exit Do End If Loop iの値が10000になる前に「8192」でエラーメッセージが表示されます。 ＨＤ等の問題でしょうか？ 教えて下さい。宜しくお願い致します。