尝试通过关键字将文件从一个目录移动到另一个目录

Question

我有一个下拉框，允许用户将包含某个关键字的文件从一个目录移动到另一个目录。目前，我正在使用自己的documents文件夹，直到可以找到documents文件夹的通用路径。我的第一个下拉选项是删除，第二个是移动它们。但是，我选择的一个删除文件，我想知道是否有人可以告诉我为什么/如何修复它。

我试图通过注释删除功能并将第二个选项用作其自己的语句来独自使用移动功能，据我所知，它仍会删除。

Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click

Dim filepath = IO.Path.Combine(
        Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData),
           txtPathBox.Text)

        Dim keyword As String = boxKeyword.Text

        If boxOption1.SelectedItem = "Delete" Then
            Dim files = From fl In IO.Directory.GetFiles(filepath)
                        Where fl.Contains(keyword)
                        Select fl
            For Each fl In files
                IO.File.Delete(fl)
            Next

        ElseIf boxOption1.SelectedItem = "Archive" Then
            Dim files = From fl In IO.Directory.GetFiles(filepath)
                            Where fl.Contains(keyword)
                            Select fl
                For Each fl In files
                My.Computer.FileSystem.MoveFile(fl, "C:\Users\Lee\Documents\Archived", True)
            Next
            End If





    End Sub