470 :
デフォルトの名無しさん:
みなさんありがとう。こんな風にしてみました。
Public Function Read_File(ByRef S As String, ByVal FileName As String) As Boolean
On Error GoTo Error_Handle
Dim Str As String
Dim FileNumber As Integer
FileNumber = FreeFile
Open FileName For Input As FileNumber
Do While Not EOF(FileNumber)
Input #FileNumber, Str
S = S & Str & vbCrLf
Loop
Close FileNumber
Read_File = True
Exit Function
Error_Handle:
Close FileNumber
Read_File = False
End Function