Visual Studio 2012 до 2017 VB код «Использование .. Как ..» BC30002 Ошибка - PullRequest
Новая
       30

Visual Studio 2012 до 2017 VB код «Использование .. Как ..» BC30002 Ошибка

0 голосов
/ 25 января 2019

У меня есть некоторый код VB, изначально написанный на VB с использованием Visual Studio 2012, который я пытаюсь обновить до Visual Studio 2017 VB. До сих пор мне удавалось устранить все ошибки преобразования, кроме одной, в выражении «Использование zip1 As ZipFile = New ZipFile».

Я получаю сообщение об ошибке: «BC30002 Тип« ZipFile »не определен».

Вот мой код: 

Private Sub DoSave(ByVal sender As Object, ByVal e As DoWorkEventArgs)

        Dim options As WorkerOptions = e.Argument

        Try
            Using zip1 As ZipFile = New ZipFile

                For Each sFile2Backup As String In sFilesToBackup
                    zip1.AddFile(options.Folder & sFile2Backup, "\")
                Next
                For Each sFolder2Backup As String In sFoldersToBackup
                    zip1.AddDirectory(options.Folder & sFolder2Backup, "\" & sFolder2Backup)
                Next

                Me._entriesToZip = zip1.EntryFileNames.Count
                Me.SetProgressBars()
                AddHandler zip1.SaveProgress, New EventHandler(Of SaveProgressEventArgs)(AddressOf Me.zip1_SaveProgress)
                zip1.Save(options.ZipName)

            End Using

        Catch exc1 As Exception
            MessageBox.Show(String.Format("Exception while zipping: {0}", exc1.Message))
            Me.Button_Cancel_Click(Nothing, Nothing)
        End Try

    End Sub     '   **** END Private Sub DoSave()

Я пробовал каждое из "Показать возможные исправления", предлагаемые Visual Studio 2017, но это только увеличивает количество зарегистрированных ошибок.

Я «случайный» кодер, так что этот действительно поставил меня в тупик, и доктор Гугл не выдвинул жизнеспособного предложения, поэтому любые предложения / решения будут очень благодарны.

...