Option Compare Database

Option Explicit

Dim v

Dim Canceled As Boolean

Dim InProgress As Boolean

Const DefaultFileName As String = "FinalResult"





Private Sub Form_Open(Cancel As Integer)

Me.FileName = DefaultFileName

Me.DestinationFolder = CurrentProject.Path

Me.BTN_CANCEL.Visible = False

InProgress = False

End Sub





Private Sub BTN_ADD_FILES_Click()

Dim FD As FileDialog

Set FD = Application.FileDialog(msoFileDialogFilePicker)

FD.InitialFileName = Me.DestinationFolder

FD.AllowMultiSelect = True

FD.InitialView = msoFileDialogViewList

FD.Filters.Clear

FD.Filters.Add "Word Document", "*.docx,*.doc"

FD.Filters.Add "PDF", "*.pdf"

FD.Filters.Add "html", "*.html"

FD.Show

Dim file

For Each file In FD.SelectedItems

    Me.DocumentsList.AddItem file

Next

End Sub





Private Sub BTN_CLEAR_LIST_Click()

If InProgress Then Exit Sub

Dim i As Integer

Me.DocumentsList.RowSource = ""

End Sub





Private Sub BTN_MOVE_DOWN_Click()

If InProgress Then Exit Sub

Dim index As Integer

index = Me.DocumentsList.ListIndex

If index = Me.DocumentsList.ListCount - 1 Then Exit Sub

Me.DocumentsList.AddItem Me.DocumentsList.Value, index + 2

Me.DocumentsList.RemoveItem index

End Sub





Private Sub BTN_MOVE_UP_Click()

If InProgress Then Exit Sub

Dim index As Integer

index = Me.DocumentsList.ListIndex

If index < 1 Then Exit Sub

Me.DocumentsList.AddItem Me.DocumentsList.Value, index - 1

Me.DocumentsList.RemoveItem index + 1

End Sub





Private Sub BTN_REMOVE_Click()

If InProgress Then Exit Sub

Dim i As Integer

If Me.DocumentsList.ListIndex >= 0 Then

    Me.DocumentsList.RemoveItem Me.DocumentsList.ListIndex

End If

End Sub





Private Sub BTN_SELECT_DESTINATION_FOLDER_Click()

If InProgress Then Exit Sub

Dim FD As FileDialog

Set FD = Application.FileDialog(msoFileDialogFolderPicker)

FD.InitialFileName = Me.DestinationFolder

FD.Title = "Select Destination Folder"

FD.InitialView = msoFileDialogViewList

FD.Show

If FD.SelectedItems.Count > 0 Then

    Me.DestinationFolder = FD.SelectedItems(1)

End If

Set FD = Nothing

End Sub