文件流访问被拒绝

问题描述

大家好，

我的代码有问题.是说拒绝访问该路径，但是我不知道如何在我的代码中添加一个对该文件夹具有权限的帐户?

I am having issues with my code. it is saying Access to the path is denied but i do not know how to add an account that has permissions to the folder in my code?

 Try
            'Set up as task scheduler on

            'Dim DateRange As DateTime = DateTime.Now.AddDays(-1)
            ''Get all rows added in last 24 hours
            'Dim NewRows = (From R In HSContext.Inspections
            '               Where R.SyncDateTime >= DateRange
            '              Select R).ToList
            Dim NewRows = (From R In HSContext.Inspections
               Where R.WisdomImport = "CT"
              Select R).ToList

            'Create report for each individual inspection.
            For Each Row In NewRows

                Dim Format As String = "PDF"
                Dim Param As New ReportParameterCollection
                Dim Param1 As New ReportParameter

                Param1 = New ReportParameter("InspectionID", Row.InspectionId.ToString)
                Param.Add(Param1)

                Dim myreportviewer As New ReportViewer
                Dim myserverreport As New ServerReport

                myreportviewer.ProcessingMode = ProcessingMode.Remote
                myserverreport = myreportviewer.ServerReport
                myserverreport.ReportServerUrl = New Uri("http://cheryl/ReportServer")
                myserverreport.ReportPath = "/Health and Safety Site Inspection/Auto Report"

                myserverreport.SetParameters(Param)

                Dim Result As Byte()
                Result = myserverreport.Render("PDF", Nothing, Nothing, Nothing, ".pdf", Nothing, Nothing)
                Dim Filename As String = ""

                Dim Number As String = Replace(Replace(Replace(Row.Add1.ToString, "-", ""), " ", ""), "&", "_")
                Dim rnumber As Integer
                Dim resultN As Boolean = Int32.TryParse(Number, rnumber)

                If resultN = False Then
                    Filename = "\\cyhfile01\shared\WPS\WPS_Shared\HS_Daily_Site_Inspections\App_Inspections\" + Row.PrSeqNo.ToString + "_" + Replace(Replace(Replace(Row.Add1.ToString, " ", ""), ",", ""), "&", "_") + "_" + CDate(Row.InspectDate).ToString("ddMMyyyy") + ".pdf"
                ElseIf resultN = True Then
                    Filename = "\\cyhfile01\shared\WPS\WPS_Shared\HS_Daily_Site_Inspections\App_Inspections\" + Row.PrSeqNo.ToString + "_" + Replace(Replace(Replace(Row.Add1.ToString, " ", ""), ",", ""), "&", "_") + Replace(Replace(Replace(Row.Add2.ToString, " ", ""), ",", ""), "&", "_") + "_" + CDate(Row.InspectDate).ToString("ddMMyyyy") + ".pdf"
                End If

                Using fs As FileStream = New FileStream(Filename, FileMode.Create, FileAccess.Write)
                    fs.Write(Result, 0, Result.Length)
                End Using

                Row.WisdomImport = "CT-Complete"
                HSContext.SaveChanges()

            Next

            Close()

        Catch ex As Exception

        End Try
    End Sub
End Class

先谢谢您

Darren

推荐答案

看看:

        ' append or  overwrite
        Dim app As Boolean = True

        Using fs As StreamWriter = New StreamWriter(Filename, app)
            fs.Write(Result, 0, Result.Length)
            ' or possibly fs.WriteLine(Result, 0, Result.Length)
            ' if you want each on a new line
        End Using

这篇关于文件流访问被拒绝的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！