>>225
3〜4行目を以下のように変更してみれば?

  OPEN MID$(STR$(i), 2) + ".txt" FOR OUTPUT AS #1
  CLOSE #1