>>644
それが難しかったらこれから何もできないぞｗ
"."でInStrRevして、Right$で拡張子抜き出して、
リネームしたいファイル名と結合。