sample.basを整理

ディーラ毎にフォルダを作る処理でつまづいている。