返回值时的函数问题

Question

所以，我正在尝试使 Function 方法工作，但出现了一些问题，我无法解决它们。我使用了断点，我发现这是一个循环，并且没有调用其中一个代码行。方法是这样的：

Private Function SendToRecycle(filename As String) As Boolean
    If MsgBox("Are you sure you want to sent it to recycle bin?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
        Return "True"
        My.Computer.FileSystem.DeleteFile(filename, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
    ElseIf MsgBox("Are you sure you want to sent it to recycle bin?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
        Return "False"
    End If
    Return SendToRecycle
End Function

它的作用很简单，如果用户选择选项是，它应该返回 true 并将该文件发送到回收站并写入我的数据库，如果不是，它将返回 true 并写入我的数据库而不删除添加的文件。 但是发生的事情是，如果我单击是，它将返回 True 但不会调用删除文件的操作...

您有什么想法可以解决我的问题吗？

Answer 1

试试：

Private Function SendToRecycle(filename As String) As Boolean
    If MsgBox("Are you sure you want to sent it to recycle bin?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
        My.Computer.FileSystem.DeleteFile(filename,FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
        Return True
    ElseIf MsgBox("Are you sure you want to sent it to recycle bin?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
        Return False
    End If
End Function