テレワークならECナビ Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券　海外旅行保険が無料！ 海外ホテル

メモ２

372 ：名無しさん＠勉強中：06/12/29 03:04:08 ID:Ssgg0ePR

>>371
>>365みたいな行、つまり開いてはいるけど何もしてなかったところで、

'最終行まで全部読み込む
Dim arrFileLines()
i=0
Set fs=CreateObject("Scripting.FileSystemObject")
Set su = fs.OpenTextFile(tuika, ForReading)
Do Until su.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = su.ReadLine
i = i + 1
Loop
su.Close

'最終行が長さ0以上の時(EOFでないとき)空行追加
If Len(arrFileLines(Ubound(arrFileLines))) > 0 Then
　　　Set su = fs.OpenTextFile(tuika, ForAppending)
　　　su.WriteLine
　　　su.Close
End If

に処理を変えればいけるんじゃないかな？
このままだと、>>363のようにファイルがないときにはエラーがでるから、
ターゲットファイルが存在してるときに限って、
この処理をすれば問題ないと思います。