vb.net纠正错误实现System.IDisposable。

Question

我只是在尝试纠正这个错误时感到困惑 BC36010 'Using' 操作数类型为 'Boolean' 必须实现 'System.IDisposable' 。

只有当我把下面代码中的If End If设计去掉，并实现Using End Use的使用原因是垃圾清理时，才会出现Error。所以问题是如何实现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

Answer 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