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

Get["h_shwat.m"]