Problems with writing to txt file

[chauc3r]

I'm having problems writing to a text file. Basically it refuses to
write anything. The file is created. At the appropiate times it goes
into the correct if statements (I have verified this using msgboxes).
Any idea why it wouldnt be writing anything?

Do Until (objFacilitySht .Cells(row, cboAPName.Text) .Value = "")
Dim fsStream As New FileStream(txtS aveto.Text & "\" &
objFacilitySht. Cells(row, cboAPName.Text) .Value & ".txt",
FileMode.Create , FileAccess.Writ e)
Dim swWriter As New StreamWriter(fs Stream)

' Start Writing Config files
Try
' Do until the end of the config sheet
counter = 1
Do Until (objConfigSht.C ells(counter, 1).Value = "")
If (InStr(objConfi gSht.Cells(coun ter, 1).Value, "###")) Then
pound = objConfigSht.Ce lls(counter, 1).value.replac e("#", "")

If pound = "1" Then
swWriter.WriteL ine("!Revision " & Rev_date)

End If
Else
swWriter.WriteL ine(objConfigSh t.Cells(counter , 1).Value)

End If
counter += 1
Loop

swWriter.Close( )

Catch ex As IOException

MsgBox(ex.Messa ge)

End Try
row += 1
Loop

[Zoury]

Hi !

swWriter.Close( )

Catch ex As IOException

MsgBox(ex.Messa ge)

End Try

Is there an exception thrown.. ? if so then you didn't call the Close()
method, which should drop all the changes made to the file content.

try to call Close() in the Catch too :
'***
Try

' code code code...

swWriter.Close( )

Catch ex As IOException

swWriter.Close( )
MsgBox(ex.Messa ge)

End Try
'***

--
Best Regards
Yanick