ficheros de texto desde vb.net

[beamm]

He intentado esto pero tampoko me escribe, por favor ayudenme...


Protected Sub aulasLibres_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aulasLibres.Click
Dim fecha As String = TextBox1.Text
Dim cnn As OleDbConnection
Dim resul2 As OleDbDataReader
Dim objds As New DataSet
Dim fe As New DataTable("num")
fe.Columns.Add("hi", Type.GetType("System.String"))
fe.Columns.Add("hf", Type.GetType("System.String"))
fe.Columns.Add("m", Type.GetType("System.String"))


Dim strconexion As String
Dim objconexion As OleDbConnection
Dim objcomando As OleDbDataAdapter




Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\impresion.txt", ForWriting, True)
'f.Write("Hola se ha escrito el archivo!")
f.close()




strconexion = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db"

objconexion = New OleDbConnection(strconexion)
objconexion.Open()
objcomando = New OleDbDataAdapter("select HoraInicio,HoraFin,Motivo from Reserva where Fecha='" & fecha & "'", objconexion)
objcomando.Fill(objds, "fe")
Dim apendiza As Boolean = False
Dim flujoEscritura As StreamWriter = New StreamWriter("c:\impresion.txt", apendiza)
Dim fila As DataRow
For Each fila In objds.Tables("fe").Rows
flujoEscritura.WriteLine(objds.Tables(fila(0)))
Next
flujoEscritura.Close()

objconexion.Close()

End Sub