asp.net - パス [宛先アドレス] へのアクセスが拒否されました - 新しいディレクトリを作成するとき - VB.NET

Question

新しく作成したディレクトリにファイルをアップロードしようとしています。なんとか作成できましたが、アクセスが拒否されたため、そこにファイルを配置できません。ディレクトリへのアクセスを許可するにはどうすればよいですか?

   <asp:FileUpload ID="FileUpload1" runat="server" />
   <asp:LinkButton ID="LinkButton1" runat="server">LinkButton</asp:LinkButton>
   <asp:Label ID="Label1" runat="server" Text="Upload Status"></asp:Label>

VB.NET

Protected Sub LinkBut​​ton1_Click (sender As Object, e As EventArgs) LinkBut​​ton1.Click を処理します


If FileUpload1.HasFile Then
 試す
                Dim ファイル = FileUpload1.PostedFile.ContentType
                Dim Extention As String = Path.GetExtension(FileUpload1.FileName)
                If Extention = ".jpeg" OrElse Extention = ".jpg" Then

                If FileUpload1.PostedFile.ContentLength > 2097152 Then
                    Label1.Text = "File Too Big"
                Else
                    Dim directoryPath As String = Server.MapPath("~/bussnisses")

                    If Not Directory.Exists(directoryPath) Then
                        Directory.CreateDirectory(directoryPath)
                        FileUpload1.SaveAs(directoryPath)
                    Else
                        FileUpload1.SaveAs(directoryPath)
                    End If
                    Label1.Text = "complete"
                End If

            Else
                Label1.Text = "  jpeg or jpg"

            End If
        Catch ex As Exception

        End Try
    End If
End Sub

Answer 1

CreateDirectory 呼び出しまたはその後にエラーがあるかどうかはわかりません。FileUpload コントロールには SaveAs メソッドがなく、これは PostedFile オブジェクトにあり、ディレクトリ名ではなく FileName を渡す必要があると確信しています

Dim directoryPath As String = Server.MapPath("~/bussnisses")
If Not Directory.Exists(directoryPath) Then
    Directory.CreateDirectory(directoryPath)
End If

Dim destFile = Path.GetFileName(FileUpload1.PostedFile.FileName)
destFile = Path.Combine(directoryPath, destFile)
FileUpload1.PostedFile.SaveAs(destFile)
Label1.Text = "complete"