MID$()の3つ目の、文字数、の部分がミスマッチです( ´ ω ` ) よく見ると、FILE_NAME$[I]-1、になっちゃってます。これだと文字列から1引くことになるので、LENを忘れているのだと思います( ´ ▽ ` )ﾉ あとあんまり関係ないですけれど、特に後で使うつもりがなかったらA$は要らないようなー。