Блог

У меня есть выпадающий список, который позволяет пользователю перемещать файл, содержащий определенное ключевое слово, из одного каталога в другой. На данный момент я использую свою собственную папку 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:UsersLeeDocumentsArchived", True)
            Next
            End If





    End Sub