SetDirectory["d:\\hirota\\allfiles"]

Get["h_itob4.m"]