Visual Basic表单编码(如何设置目录)

Question

私有sub button7_click（发件人作为对象，e as evensargs）anderles button7.click

    Dim Newline As String
    Newline = System.Environment.NewLine
    System.IO.File.WriteAllLines("C:UsersSangDesktopfilename.txt", Result1.Lines)
    System.IO.File.AppendAllLines("C:UsersSangDesktopfilename.txt", Result2.Lines)
    System.IO.File.AppendAllLines("C:UsersSangDesktopfilename.txt", values.Lines)

End Sub

这是我在桌面上制作文本文件的编码。但是，我的朋友无法运行此代码，因为此代码仅适合我自己，如上所述。我想使用folderbroswerdialog为每个人概括此编码。要具体来说，如果用户按表单上的按钮按下此按钮，则文件夹浏览器应询问他要在哪里保存此文本文件，并且文本文件应保存在有向的文件夹或桌面中。我试图通过查看许多YouTube视频和资源来自己做，但我失败了。我应该如何继续此操作？

Answer 1

您可以使用环境。SpecialFolder枚举，其中包含可以使用环境检索的系统目录的ubications.getFolderPath方法：

Dim DesktopDir As String = 
    Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

然后您可以使用path.combine方法正确地组合目录/文件路径：

Dim OutputFile As String = 
    IO.Path.Combine(DesktopDir, "filename.txt")

然后：

IO.File.WriteAllLines(OutputFile, "Text Here")

Answer 2

在此处查看使用folderbrowserdialog：

http://msdn.microsoft.com/en-us/library/system.windows.forms.folderbrowserdialog（v = vs.110）.aspx

那里很棒的例子。