Блог

Я пытаюсь создать программу, которая будет перемещать или удалять файлы по определенным качествам (т.Е. ключевое слово, дата последнего изменения, тип файла). У меня есть переключатель для каждого параметра с выпадающим списком с вариантами архивирования или удаления, а также текстовое поле для параметра ключевого слова и выпадающие списки для типа файла и даты последнего изменения. Прилагается подраздел для кнопки, которая будет выполнять эти действия, и начало действия для первого варианта. Мой вопрос: как я могу удалить или переместить эти файлы на основе их спецификаций? (переменная filepath — это каталог, в котором он будет работать)

 Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
        Dim filepath As String
        Dim keyword As String
        keyword = boxKeyword.Text
        filepath = txtPathBox.Text
        Dim fileList1 As String() = Directory.GetFiles(filepath, keyword)



        If btnOption1.Checked = True Then
            If boxOption1.SelectedText = "Delete" Then

                For Each file As String In fileList1
                    MessageBox.Show(file, "will be deleted")
                    System.IO.File.Delete(file)
                Next

            End If
        End If



    End Sub
  

Вы могли бы использовать структуру, подобную этой, и проверить, что вам нужно внутри цикла, чтобы решить, нужно ли перемещать файл или нет…

 Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
    Dim filepath As String
    filepath = txtPathBox.Text
    For Each strFile As String In IO.Directory.GetFiles(filepath)
        'strFile gets the full path   filename (Example: C:Folder1myFile.txt)
        If btnOption1.Checked = True Then
            'Move File?
        ElseIf ... Then
            'Move File?
        ElseIf ... Then
            'Move File?
        End If
    Next
End Sub