重载文件功能VB.NET

Question

我正在尝试通过ASP前端创建一个onclick函数，以检查文件是否存在，如果不创建文件并向其写入文本框文本，当前在以下代码上显示错误，提示我无法重载文件功能，是否存在更好的方法吗？

更新问题是尝试向其写入文件时抛出错误，该文件仍处于打开状态。

请参见以下代码：

Protected Sub Create_Click(sender As Object, e As EventArgs)
    Dim txtFile As String = "E:Documents\Visual Studio 2013\Projects\SomeProject\Templates\" & FileName.Text & ".txt"

    If File.Exists(txtFile) Then
        Response.Write("A file of that name already exists.")
    Else
        File.Create(txtFile)
        File.WriteAllText(eTemplate.Text)
    End If
End Sub

我也尝试过：

    If File.Exists(txtFile) Then
        Response.Write("A file of that name already exists.")
    Else
        System.IO.File.Create(txtFile)
        Dim sw As New StreamWriter(txtFile, True)
        sw.Write(eTemplate.Text)
        sw.Close()
    End If

Answer 1

您的钱是对的，这是因为首先需要将其关闭。

我首先创建了一个文件流实例，创建了文件，将其关闭，然后写入其中。 将以下代码放入您的代码中或将其写出来，但请记住更正文件路径。

   Protected Sub Create_Click(sender As Object, e As EventArgs)
    Dim txtFile As String = "E:\wherever\" & FileName.Text & ".txt"

    If System.IO.File.Exists(txtFile) Then
        Dim message As String = "A file by this name already exists, choose another or update the existing file."

    Else
        Dim fs As FileStream = File.Create(txtFile)
        fs.Close()
        Dim sw As New StreamWriter(txtFile, True)
        sw.Write(eTemplate.Text)
        sw.Close()
    End If
End Sub