无法修改文本文件的错误

Question

conn.Open()
        Try
            adp.UpdateCommand.Parameters("@subjid").Value = CStr(Request.QueryString("subjid"))
            adp.UpdateCommand.Parameters("@type").Value = dd.SelectedValue
            adp.UpdateCommand.Parameters("@topic").Value = TextBox1.Text
            adp.UpdateCommand.ExecuteNonQuery()
            Response.Redirect("subjman.aspx")
            Dim fn As String
            fn = CStr(Request.QueryString("subjid"))
            fn = fn.Trim
            Dim url As String = Server.MapPath(".") & "\" & fn & ".txt"
            url=cstr(url).Trim 
            Dim sw As System.IO.StreamWriter
            sw = System.IO.File.CreateText(url)            sw.WriteLine(TextBox2.Text)
            sw.Close()
        Catch ex As Exception
            Response.Write("修改时出现错误：" & ex.Message)
        Finally
            conn.Close()
        End Try

Answer 1

修改文本文件的代码没有问题。
请检查文件是不是唯“只读”，再检查文件的路径。

Answer 2

是否有对此文件有修改的权限?