读取文件
テキストを読込 Dim plFileNo As Short Dim plBuf As Object If hFso.FileExists(plTmpTxt) = True Then plFileNo = FreeFile() FileOpen(plFileNo, plTmpTxt, OpenMode.Input) Do Until EOF(plFileNo) plBuf = LineInput(plFileNo) plBody = plBody & plBuf & vbLf Loop FileClose(plFileNo) End If