尝试通过 FTP 上传文件时出现空引用异常

Question

我制作了一个FTP上传应用程序，它将FileDialog中选择的文件的名称更改为来自4个ComboBoxes的一组变量。但是每当我尝试上传文件时，它都会说：
Path Cannot be Null Paramenter name: path

在立即 window 中它说： A first chance exception of type 'System.ArgumentNullException' occurred in mscorlib.dll A first chance exception of type 'System.NullReferenceException' occurred in Microsoft.VisualBasic.dll

还有这个：

我已经检查了代码多次，但我不明白哪里出了问题，因为我对 VB 很陌生。

这是我使用的代码：

Dim Filename As String
    Dim originalFile As String

    Private Function enumerateCheckboxes(ByVal path As String)
        originalFile = path
        Dim fName As String
        For Each Control In Me.Controls
            If (TypeOf Control Is ComboBox AndAlso DirectCast(Control, ComboBox).SelectedIndex > -1) Then
                fName += CStr(Control.SelectedItem.Key) + "_"
            End If
        Next
        Try
            fName = path + fName.Substring(0, fName.Length - 1) + ".pdf"
        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox("Stack Trace: " & vbCrLf & ex.StackTrace)
        End Try
        Return fName
    End Function

    Public Function OpenDialog()
        Dim FD As OpenFileDialog = New OpenFileDialog()

        FD.Title = "Selecteer een bestand"
        FD.InitialDirectory = "C:\"
        FD.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
        FD.FilterIndex = 2
        FD.RestoreDirectory = True

        If FD.ShowDialog() = DialogResult.OK Then
            Dim Filename As String = FD.FileName
            Filename = StrReverse(Filename)
            Filename = Mid(Filename, InStr(Filename, "\"), Len(Filename))
            Filename = StrReverse(Filename)
            MsgBox(enumerateCheckboxes(Filename))
        End If
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ip"), System.Net.FtpWebRequest)
        request.Credentials = New System.Net.NetworkCredential("username", "password")
        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        Dim file() As Byte

        Try
            Filename = OpenDialog()
            System.IO.File.ReadAllBytes(Filename)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            MessageBox.Show("Stack Trace: " & vbCrLf & ex.StackTrace)
        End Try

        FileSystem.Rename(originalFile, Filename)
        Dim strz As System.IO.Stream = request.GetRequestStream()
        strz.Write(file, 0, file.Length)
        strz.Close()
        strz.Dispose()
        FileSystem.Rename(Filename, originalFile)
    End Sub

提前致谢

Answer 1

ArgumentNullException 不是 NullReferenceException。它告诉您其中一个函数的参数是 Nothing。

部分原因是这两行：

Filename = OpenDialog()
System.IO.File.ReadAllBytes(Filename)

在这种情况下，您的 Filename 似乎是 Nothing，因为 OpenDialog 不是 return 值。您需要 return 从 OpenFileDialog.

中选择的文件

尝试通过 FTP 上传文件时出现空引用异常

Null Reference Exception when trying to upload a file via FTP

vb.net

ftp

nullreferenceexception