读取文件

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

 

posted @ 2015-08-17 10:25  快乐的小太阳  阅读(139)  评论(0编辑  收藏  举报