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

Get["h_kdv.m"]