Error "Cannot a part of path" ทั้งๆที่ path ถูกแล้วจะทำอย่างไรคะ

    Protected Sub CreatePDF()
        Dim strConn As String
        strConn = WebConfigurationManager.ConnectionStrings("WEBConnectionString").ConnectionString
        Dim Conn As New SqlConnection(strConn)
        Conn.Open()

        Dim sqlString As String
        'sqlString = "Select * from VW_PDF Where rc_code = '" & Request.QueryString("rc_code") & "' Order By rc_code DESC"
        sqlString = "Select * from VW_PDF Where rc_code = '" & lbl_rccode.Text & "' Order By rc_code DESC"

        Dim cmd As New SqlCommand(sqlString, Conn)

        Dim rc_code, rc_datetime, otherposition, jobs, othereducation, otherdisciplines, workplace, username, userfullname, userposition, usercompany1, usercompany2 As String
        Dim otherexperience, otherproperty, driverlicense, car, motorcycle, usecomputer, company_id, company_shortname, othercompany As String
        Dim company_fullname, position_name, division_name, rcposition, education_name, disciplines_name As String
        Dim sex_name, age_name, experience_name, rc_numbers, capacity, otherdivision, department_name, otherdepartment As String

        Dim dr As SqlDataReader = cmd.ExecuteReader()
        If dr.Read Then
            rc_code = dr.Item("rc_code").ToString
            rc_datetime = dr.Item("rc_datetime").ToString
            company_id = dr.Item("company_id").ToString
            company_shortname = dr.Item("company_shortname").ToString
            company_fullname = dr.Item("company_fullname").ToString
            othercompany = dr.Item("othercompany").ToString
            username = dr.Item("username").ToString
            userfullname = dr.Item("fullname").ToString
            userposition = dr.Item("userposition").ToString
            usercompany1 = dr.Item("usercompany1").ToString
            usercompany2 = dr.Item("usercompany2").ToString
            position_name = dr.Item("position_name").ToString
            otherposition = dr.Item("otherposition").ToString
            jobs = dr.Item("jobs").ToString
            division_name = dr.Item("division_name").ToString
            otherdivision = dr.Item("otherdivision").ToString
            department_name = dr.Item("department_name").ToString
            otherdepartment = dr.Item("otherdepartment").ToString
            workplace = dr.Item("workplace").ToString
            education_name = dr.Item("education_name").ToString
            othereducation = dr.Item("othereducation").ToString
            disciplines_name = dr.Item("disciplines_name").ToString
            otherdisciplines = dr.Item("otherdisciplines").ToString
            sex_name = dr.Item("sex_name").ToString
            age_name = dr.Item("age_name").ToString
            experience_name = dr.Item("experience_name").ToString
            otherexperience = dr.Item("otherexperience").ToString
            car = dr.Item("car").ToString
            motorcycle = dr.Item("motorcycle").ToString
            driverlicense = dr.Item("driverlicense").ToString
            usecomputer = dr.Item("usecomputer").ToString
            otherproperty = dr.Item("otherproperty").ToString
            rc_numbers = dr.Item("rc_numbers").ToString
            capacity = dr.Item("capacity").ToString
        End If

        Dim EnCodefont As BaseFont = BaseFont.CreateFont(Server.MapPath("~/Fonts/THSarabun.ttf"), BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
        Dim Nfont As Font = New Font(EnCodefont, 18, Font.NORMAL)
        Dim RCFileName As String = rc_code & ".pdf"

        Response.ContentType = "application/pdf"
        Response.Charset = "UTF-8"
        Response.AddHeader("content-disposition", "attachment;filename=" & RCFileName)
        'Response.Cache.SetCacheability(HttpCacheability.NoCache)

        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)

        Dim sr As New StringReader(sw.ToString())
        Response.Write(Server.MapPath("~/RCOnly/MyAttach/" & RCFileName)) '<-------- Error
        Dim pdfDoc As New Document(PageSize.A4, 10.0F, 10.0F, 10.0F, 0.0F)
        Dim htmlparser As New HTMLWorker(pdfDoc)


        Dim imagepath As String = Server.MapPath("~/images")
        Dim PNG As Image = Image.GetInstance(imagepath + "/Logo-Asiang.png")
        'PNG.ScalePercent(100.0F)

        PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
        PdfWriter.GetInstance(pdfDoc, New FileStream(Server.MapPath("~/RCOnly/MyAttach/" & RCFileName), FileMode.Create)) '<-------- Error

        pdfDoc.Open()
        pdfDoc.Add(PNG)
        ' pdfDoc.Add(New Phrase(company_fullname, Nfont))
        pdfDoc.Add(New Paragraph("                                                               ใบขอว่าจ้างพนักงาน", Nfont))
        pdfDoc.Add(New Phrase("         เลขที่เอกสาร :    ", Nfont))
        pdfDoc.Add(New Phrase(rc_code, Nfont))
        'pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         วัน / เวลา :    ", Nfont))
        pdfDoc.Add(New Phrase(rc_datetime, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ตำแหน่งของผู้สมัครที่ต้องการ :   ", Nfont))
        If position_name <> "ตำแหน่งอื่นๆ" Then
            pdfDoc.Add(New Chunk(position_name, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(otherposition, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         หน้าที่งาน :   ", Nfont))
        pdfDoc.Add(New Chunk(jobs, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         สังกัดฝ่าย :   ", Nfont))
        If division_name <> "ฝ่ายอื่นๆ" Then
            pdfDoc.Add(New Chunk(division_name, Nfont))
            'pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(otherdivision, Nfont))
            'pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         สังกัดแผนก :   ", Nfont))
        If department_name <> "แผนกอื่นๆ" Then
            pdfDoc.Add(New Chunk(department_name, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(otherdepartment, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         สังกัดที่ :   ", Nfont))
        If company_id <> "8" Then
            pdfDoc.Add(New Phrase(company_shortname, Nfont))
            pdfDoc.Add(New Phrase(company_fullname, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Phrase(company_shortname, Nfont))
            pdfDoc.Add(New Phrase(company_fullname, Nfont))
            pdfDoc.Add(New Phrase(othercompany, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         สถานที่ปฏิบัติงาน :   ", Nfont))
        pdfDoc.Add(New Phrase(workplace, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         อัตราที่รับ :   ", Nfont))
        pdfDoc.Add(New Chunk(rc_numbers, Nfont))
        pdfDoc.Add(New Phrase("         เป็นอัตรา :   ", Nfont))
        pdfDoc.Add(New Chunk(capacity, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         วุฒิการศึกษา :   ", Nfont))
        If education_name <> "อื่นๆ" Then
            pdfDoc.Add(New Chunk(education_name, Nfont))
            'pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(othereducation, Nfont))
            'pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         สาขาวิชา :   ", Nfont))
        pdfDoc.Add(New Chunk(disciplines_name, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        ' If otherdisciplines = "1" Then
        'pdfDoc.Add(New Chunk("หรือสาขาที่เกี่ยวข้อง", Nfont))
        'pdfDoc.Add(New Paragraph("", Nfont))
        'End If
        pdfDoc.Add(New Phrase("         เพศ :   ", Nfont))
        pdfDoc.Add(New Chunk(sex_name, Nfont))
        'pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         อายุ :   ", Nfont))
        pdfDoc.Add(New Chunk(age_name, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ประสบการณ์ :   ", Nfont))
        If experience_name <> "อื่นๆ" Then
            pdfDoc.Add(New Chunk(experience_name, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        Else
            pdfDoc.Add(New Chunk(otherexperience, Nfont))
            pdfDoc.Add(New Paragraph("", Nfont))
        End If
        pdfDoc.Add(New Phrase("         ความสามารถด้านการขับรถยนต์ :   ", Nfont))
        pdfDoc.Add(New Chunk(car, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ความสามารถด้านการขับรถจักรยานยนต์ :   ", Nfont))
        pdfDoc.Add(New Chunk(motorcycle, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ใบอนุญาติขับขี่ :   ", Nfont))
        pdfDoc.Add(New Chunk(driverlicense, Nfont))
        'pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ความสามารถด้านคอมพิวเตอร์ :   ", Nfont))
        pdfDoc.Add(New Chunk(usecomputer, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("         ความสามารถอื่นๆ :   ", Nfont))
        pdfDoc.Add(New Chunk(otherproperty, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("                                                                                      ชื่อผู้ร้องขอ :   ", Nfont))
        pdfDoc.Add(New Chunk(userfullname, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("                                                                                      ตำแหน่ง :   ", Nfont))
        pdfDoc.Add(New Chunk(userposition, Nfont))
        pdfDoc.Add(New Paragraph("", Nfont))
        pdfDoc.Add(New Phrase("                                                                                      สังกัดที่ :   ", Nfont))
        pdfDoc.Add(New Chunk(usercompany1, Nfont))
        'pdfDoc.Add(New Chunk(usercompany2, Nfont))

        pdfDoc.Close()
        Conn.Close()
        Response.End()
    End Sub