Я просто заблудился, пытаясь исправить эту ошибку
Ошибка BC36010 «Использование» операнда типа «Boolean» должно реализовывать «System.IDisposable»

Ошибка появляется только тогда, когда я удаляю дизайн If End If из приведенного ниже кода и реализую Using
Причиной использования использования End Using была очистка мусора
Итак, вопрос в том, как реализовать System.IDisposable?

Public Sub haveFILE()
    'Dim path As String = "C:\Users\Me\source\repos\TestForms\TestForms\Resource\"
    Using Not My.Computer.FileSystem.FileExists(path & "Check.txt") Then
        tbHaveDB.Text = "File NOT Found"
        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path & "Check.txt")
        fs.Close()
    End Using
End Sub
0
Vector 12 Июн 2020 в 22:30

1 ответ

Лучший ответ

Ошибка касается using

Using Not My.Computer.FileSystem.FileExists(path & "Check.txt") Then
End Using

My.Computer.FileSystem.FileExists(path & "Check.txt") возвращает логическое значение. Только не используйте using. В этом случае используйте if then. Using - это когда вы создаете объект IDisposable

Кажется, что ваш код сбивает с толку разные блоки. У вас половина использования if. Я думаю, это должно быть так

if Not My.Computer.FileSystem.FileExists(path & "Check.txt") Then
    tbHaveDB.Text = "File NOT Found"
    ' Create or overwrite the file.
else
     using fs As FileStream = File.Create(path & "Check.txt")
         ' write to stream here
         fs.Close()
     End Using
End If
1
T.S. 12 Июн 2020 в 20:03