Question

我将此代码编码为将生成的密码保存到文件中。我无法附加此文件。它只是提示我保存一个新文件。当我第二次点击生成时，我想要附加文件，密码将被保存在，当被要求用逗号生成密码或文件中断时。

我是VB.Net的新手!!!!

    Using dlg As SaveFileDialog = New SaveFileDialog
        dlg.Title = "Save"
        dlg.Filter = "Rich Text Files (*.rtf)|*.rtf|Html File (*.html)| *.Html|Text File (*.txt)|*.txt"
        dlg.CheckPathExists = True
        dlg.InitialDirectory = "C:\"
        dlg.DefaultExt = "txt"
        Dim myReturn As DialogResult = dlg.ShowDialog()

        If System.Windows.Forms.DialogResult.OK.Equals(myReturn) Then
            System.IO.File.WriteAllText(dlg.FileName, TextBox1.Text)
        End If
    End Using

Answer 1

首先检查权限。你打开它时是否以管理员身份运行？右键单击/以管理员身份运行...

然后检查文件夹权限。 /属性/安全/

Answer 2

WriteAllText不会附加到该文件。您必须使用AppendAllText附加到文件。还要确保文件不处于编辑模式，即由其他程序打开/锁定。尝试以下代码，如果无法追加，它将显示错误消息。错误消息将帮助您本地化问题，您可以尝试解决它。

Try
    Using dlg As SaveFileDialog = New SaveFileDialog
        dlg.Title = "Save"
        dlg.Filter = "Rich Text Files (*.rtf)|*.rtf|Html File (*.html)| *.Html|Text File (*.txt)|*.txt"
        dlg.CheckPathExists = True
        dlg.InitialDirectory = "C:\"
        dlg.DefaultExt = "txt"

        If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
            System.IO.File.AppendAllText(dlg.FileName, TextBox1.Text)
        End If

    End Using
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try

如何附加到文件

2 个答案: