拡張子で判断したとしても、先頭の”　”がそのままだとLOADできないですよ。 先頭の１文字だけ消せば、最初のプログラムでも動くんじゃないですか？ FOR～の次行に F$=SUBSTR$(NAME$[I],0,1,"") で、IF文内はF$を使う感じで。