write
Dim sw As New StreamWriter(Server.MapPath("bbsindex.htm"))
sw.Write(s)
sw.Close()
-------------------------------------------------------------------------------------------------------------
read
Dim s As String
Dim line As String
Dim sm As New StreamReader(Server.MapPath("admin/bbsoptions.htm"))
Do
line = sm.ReadLine()
s = s & line
Loop Until line Is Nothing
sm.Close()
Me.Label1.Text = s