Question

Private Sub Button7_Click（发件人为对象，e为EventArgs）处理Button7.Click

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


End Sub

这是我在桌面上制作文本文件的编码。但是，我的朋友无法运行此代码，因为此代码仅供我自己使用，如上所示。我想使用folderbroswerdialog来为每个人推广这个编码。具体来说，如果用户在表单上按下此按钮，文件夹浏览器应该询问他要保存此文本文件的位置，文本文件应保存在定向文件夹或桌面中。我试着通过查看许多YouTube视频和资源来自己做，但我失败了。我该怎么办呢？

Answer 1

您可以使用Environment.SpecialFolder枚举，其中包含您可以使用Environment.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

完美的例子。

Visual Basic表单编码（如何设置目录）

2 个答案: