ファイルの追記書きについて (ID:118374)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 皆さんレス有難う御座います。 今回はReadLineとWriteLineを使って 処理をしたいと考えております。 ヘルプを見て追記モードにしてみたんですが エラーで落ちます。 下記にソースを記述しますので アドバイス頂けないでしょうか。 宜しくお願い致します。 ********************************************************* '（test1.txtの内容をtest2.txtに追記書きしたい） Private Sub Form_Load() On Error GoTo ErrHandler Dim strFileName As String Dim strFileName2 As String Dim strGetLine As String Dim objFs As Object Dim objFile As Object Dim objFile2 As Object strFileName = "C:\work\test1.txt" strFileName2 = "C:\work\test2.txt" Set objFs = CreateObject("Scripting.FileSystemObject") Set objFile = objFs.OpenTextFile(strFileName) Set objFile2 = objFs.OpenTextFile(strFileName2, ForAppending) ↑ここで落ちます。 Do While objFile.AtEndOfLine <> True strGetLine = objFile.ReadLine objFile2.WriteLine (strGetLine) Loop objFile.Close objFile2.Close Exit Sub ErrHandler: ret = MsgBox(Err.Description, vbCritical, "警告") End End Sub