Dim files() As String
        files = e.Data.GetData(DataFormats.FileDrop)
        Dim path As String
        For f = 0 To UBound(files)
            If IO.File.Exists(files(f)) Then
                ' This path is a file.
                Dim file As String
                For g = 0 To UBound(files)
                    Try
                        Dim skip As Boolean = False
                        For Each item In fullmovielist
                            If item.fullpathandfilename = files(g) Then
                                skip = True
                                Exit For
                            End If
                        Next
                        For Each item In droppeditems
                            If item = files(g) Then
                                skip = True
                                Exit For
                            End If
                        Next
                        If skip = False Then droppeditems.Add(files(f))
                    Catch ex As Exception

                    End Try
                Next
            Else
                If IO.Directory.Exists(files(f)) Then
                    ' This path is a directory.
                    Dim di As New IO.DirectoryInfo(files(f))
                    Dim diar1 As IO.FileInfo() = di.GetFiles()
                    Dim dra As IO.FileInfo

                    'list the names of all files in the specified directory
                    For Each dra In diar1
                        Try
                            Dim skip As Boolean = False
                            For Each item In fullmovielist
                                If item.fullpathandfilename = dra.FullName Then
                                    skip = True
                                    Exit For
                                End If
                            Next
                            For Each item In droppeditems
                                If item = dra.FullName Then
                                    skip = True
                                    Exit For
                                End If
                            Next
                            If skip = False Then droppeditems.Add(dra.FullName)
                        Catch ex As Exception

                        End Try
                    Next
                End If
            End If
        Next
  If droppeditems.Count > 0 Then
            If Not bckgrounddroppedfiles.IsBusy Then
                ToolStripStatusLabel4.Visible = True
                'ToolStripProgressBar4.Visible = True
                bckgrounddroppedfiles.RunWorkerAsync()
            End If
        End If