' sample.vbs ' "charset=Shift_JIS" を "charset=utf-8" に全置換してUTF8で保存 ReplaceAll CStr("charset=Shift_JIS"), CStr("charset=utf-8"), CLng(24) FileSaveAs CStr(GetFileName), CLng(4), CLng(0)