到底错在哪里????

[jeff__lueny]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim abc As New FailedDeal
Dim TestArrayList As New ArrayList
Try
TestArrayList.Add("abc")
TestArrayList.Add("dfjaljsdlj")
TestArrayList.Add("4543456")

abc.WriteFailedTaskFile("c:\abc.tmp", TestArrayList)

Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

End Sub

'FailedDeal.class

Imports System.IO

Public Class FailedDeal


Public Function ReadFailedTaskFile(ByVal FileName As String) As ArrayList
Dim tmpArrayList As New ArrayList
Dim ReadLine As StreamReader
Dim tmpString As String
Try
ReadLine = New StreamReader(FileName)

tmpString = ReadLine.ReadLine()
While ReadLine.Peek() >= 0
tmpArrayList.Add(tmpString)
tmpString = ReadLine.ReadLine()
End While
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
ReadLine = Nothing
ReadLine.Close()
End Try
End Function

Public Sub WriteFailedTaskFile(ByVal FileName As String, ByVal DateArrayList As ArrayList)
Dim WriteLine As StreamWriter = File.CreateText(FileName)
Dim iLoop As Integer

Try
WriteLine.Close()
WriteLine = New StreamWriter(FileName)

For iLoop = 0 To DateArrayList.Count - 1
WriteLine.WriteLine(DateArrayList.Item(iLoop))
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
WriteLine = Nothing
WriteLine.Close()
End Try
End Sub
End Class

[tl_pear]

Public Sub WriteFailedTaskFile(ByVal FileName As String, ByVal DateArrayList As ArrayList)
Dim WriteLine As StreamWriter = File.CreateText(FileName)
Dim iLoop As Integer

Try
WriteLine.Close()
WriteLine = New StreamWriter(FileName)

For iLoop = 0 To DateArrayList.Count - 1
WriteLine.WriteLine(DateArrayList.Item(iLoop))
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
WriteLine = Nothing‘错误在此，
’你把WriteLine赋值为Nonthing，就不能再执行下一条语句了。
‘去掉这个语句应该就可以了。
WriteLine.Close()
End Try
End Sub

[simon8181]

什么错误提示？

[jeff__lueny]

谢谢 tl_pear(飘叶寻梦) 结贴