读取文件

テキストを読込
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