Vb.net VB，创建一个保存文件菜单

是否可以使用VB.2010创建“保存”文件选项，将当前应用程序设置保存到文件中，然后能够“打开”这些设置。基本上，我是在我的下拉任务栏中实现了传统的保存、打开功能之后

---

当我说设置时，我指的是一堆文本框内容等，如果不是安全/机密信息，您可以将其存储在文本文件中

这只是一个例子：

    ' For own file name or save place...

    Dim sfd As New SaveFileDialog
    sfd.ShowDialog()
    Dim myPath As String = sfd.FileName

    ' Replace "My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\NAME_OF_FILE.txt" with "myPath"

    ' To save
    FileOpen(1, My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\NAME_OF_FILE.txt", OpenMode.Output)
    PrintLine(1, TextBox1.Text)
    PrintLine(1, TextBox2.Text)
    ' And so on...
    FileClose(1)

    ' To load
    If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\NAME_OF_FILE.txt") Then
        FileOpen(1, My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\NAME_OF_FILE.txt", OpenMode.Input)
        TextBox1.Text = LineInput(1)
        TextBox2.Text = LineInput(1)
        ' And so on...
        FileClose(1)
    End If

请记住始终关闭该文件，否则将导致内存泄漏和各种讨厌的东西=p

您可以使用

FreeFile（）

获取下一个免费文件编号，在打开多个文件时使用

这是一个简单的方法，我相信您可以使用它作为模板，并实现它供您自己使用

---

希望它有帮助

如果它不是安全/机密信息，您可以将其存储在文本文件中

这只是一个例子：

    ' For own file name or save place...

    Dim sfd As New SaveFileDialog
    sfd.ShowDialog()
    Dim myPath As String = sfd.FileName

    ' Replace "My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\NAME_OF_FILE.txt" with "myPath"

    ' To save
    FileOpen(1, My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\NAME_OF_FILE.txt", OpenMode.Output)
    PrintLine(1, TextBox1.Text)
    PrintLine(1, TextBox2.Text)
    ' And so on...
    FileClose(1)

    ' To load
    If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\NAME_OF_FILE.txt") Then
        FileOpen(1, My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\NAME_OF_FILE.txt", OpenMode.Input)
        TextBox1.Text = LineInput(1)
        TextBox2.Text = LineInput(1)
        ' And so on...
        FileClose(1)
    End If

请记住始终关闭该文件，否则将导致内存泄漏和各种讨厌的东西=p

您可以使用

FreeFile（）

获取下一个免费文件编号，在打开多个文件时使用

这是一个简单的方法，我相信您可以使用它作为模板，并实现它供您自己使用

---

---

希望它能有所帮助

是的，这当然是可能的。您可以尝试一些东西，如果它不起作用，我们将尝试帮助您是否要滚动您自己的配置设置或现有的xml配置文件？您可以只使用.settings文件，也可以编写一些自定义文件（如果需要），当然可以。我希望用户能够用一个保存名称保存内容，以便将来能够调用它们。如果一个人做系统文件，你能在一个文件中保存多个文件吗？是的，这当然是可能的。您可以尝试一些东西，如果它不起作用，我们将尝试帮助您是否要滚动您自己的配置设置或现有的xml配置文件？您可以只使用.settings文件，也可以编写一些自定义文件（如果需要），当然可以。我希望用户能够用一个保存名称保存内容，以便将来能够调用它们。如果一个人做系统文件，你能在一个文件中保存多个吗？很酷，谢谢，是的，在我能够掌握如何实现打开/保存并提示输入文件名等之前，这暂时非常方便。能够从应用程序中手动选择保存位置会很好，但从我以前的帖子中收集到的信息来看，有一些限制，对不对？在Windows Vista+中有UAC，因此，在哪里可以创建文件/文件夹有一些限制。例如，在

程序文件

目录中创建文件夹需要管理员权限，但如果您以管理员身份运行应用程序，则可以在这些“受限”位置创建文件夹/文件。请参阅我的编辑使用自己的文件名，并自己保存的地方。非常感谢。我得到保存和位置的提示，但在“保存文件类型”框下为空，当我保存名称时，它不会保存任何内容。有什么想法吗？我刚刚在一个测试项目上运行了它，所以它与您提供的足够接近，这里是：Private Sub Button1\u Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。Click Dim sfd作为新的SaveFileDialog sfd.ShowDialog（）Dim myPath作为String=sfd.FileName FileOpen（1，“myPath”，OpenMode.Output）打印行（1，RichTextBox1.Text）文件关闭（1）很酷，谢谢，是的，在我能够掌握如何实现打开/保存并提示输入文件名等之前，这暂时非常方便。能够从应用程序中手动选择保存位置会很好，但从我以前的帖子中收集到的信息来看，有一些限制，对不对？在Windows Vista+中有UAC，因此，在哪里可以创建文件/文件夹有一些限制。例如，在

程序文件

目录中创建文件夹需要管理员权限，但如果您以管理员身份运行应用程序，则可以在这些“受限”位置创建文件夹/文件。请参阅我的编辑使用自己的文件名，并自己保存的地方。非常感谢。我得到保存和位置的提示，但在“保存文件类型”框下为空，当我保存名称时，它不会保存任何内容。有什么想法吗？我刚刚在一个测试项目上运行了它，所以它与您提供的足够接近，这里是：Private Sub Button1\u Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。Click Dim sfd作为新的SaveFileDialog sfd.ShowDialog（）Dim myPath作为String=sfd.FileName FileOpen（1，“myPath”，OpenMode.Output）打印行（1，RichTextBox1.Text）文件关闭（1）