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

Question

我只是迷失了试图纠正这个错误
错误 BC36010“使用”“布尔”类型的操作数必须实现“System.IDisposable”

只有当我从下面的代码中删除 If End If 设计并实施 Using
时，才会出现错误 使用 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

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