テキストを読込 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
原文：http://www.cnblogs.com/jiningning/p/4735891.html