happynow https://blog.hatena.ne.jp/happynow/ happynow’s diary https://happynow.hateblo.jp/ Function ReadAll(FilePath) Const adTypeText = 2 Const adReadAll= -1 Const adReadLine = -2 With CreateObject("ADODB.Stream") .Type = adTypeText .Charset = "UTF-8" .Open .LoadFromFile FilePath ReadAll = .ReadText(adReadAll) ' Do Until .EOS ' Dim Line ' Line = .ReadText(adReadLine) ' Loop .Close End Wi… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhappynow.hateblo.jp%2Fentry%2F20181015%2F1539622043" title="ADODB.Stream UTF-8 BOMなし ファイル読み書き VBScriptサンプルコード - happynow’s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2018-10-15 01:47:23 rich https://happynow.hateblo.jp/entry/20181015/1539622043 1.0 100%