保存 txt 文件的路径 (VB.net)

Question

所以，基本上我正在做一个"另存为"按钮，当文件被保存时，我希望保存的文件的路径转到另一个不同的txt文件。

Private Sub saveas_Click(sender As Object, e As EventArgs) Handles Saveas.Click
SaveFileDialog1.InitialDirectory = "C:Usersmarce"
SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt"
SaveFileDialog1.FilterIndex = 2
SaveFileDialog1.ShowDialog()
Dim W As New IO.StreamWriter(SaveFileDialog1.FileName)
W.Write(RichTextBox1.Text)
W.Close()
End Sub

Answer 1

那么，您的问题也是写入不同的文件？或者以某种方式，从保存文件对话框返回两个不同的文件名？如果是后者，我不相信这是可以做到的。

如果是前者，你已经知道如何写入文本文件，所以这个答案似乎是多余的。尽管如此，以下代码(假设通过在原始文件名后附加".tmp"来命名"完全不同的 txt 文件")将保存第二个文件的原始路径：

Private Sub saveas_Click(sender As Object, e As EventArgs) Handles Saveas.Click
SaveFileDialog1.InitialDirectory = "C:Usersmarce"
SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt"
SaveFileDialog1.FilterIndex = 2
SaveFileDialog1.ShowDialog()
Dim W As New IO.StreamWriter(SaveFileDialog1.FileName)
W.Write(RichTextBox1.Text)
W.Close()
'new code
'get new filename by appending .tmp to the original filename
Dim tmpFilePath As String = SaveFileDialog1.FileName & ".tmp"
IO.File.WriteAllText(tmpFilePath, SaveFileDialog1.FileName)
End Sub

Answer 2

补充@Spyros P 的答案是，我会SaveFileDialog1.ShowDialog()存储到变量中，因为如果您cancel or X out of the Save window它仍然会继续保存文件。可以做这样的事情：

Private Sub saveas_Click(sender As Object, e As EventArgs) Handles Saveas.Click
SaveFileDialog1.InitialDirectory = "C:Usersmarce"
SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt"
SaveFileDialog1.FilterIndex = 2
Dim temp = SaveFileDialog1.ShowDialog()
If temp = False Then Return
Dim W As New IO.StreamWriter(SaveFileDialog1.FileName)
W.Write(RichTextBox1.Text)
W.Close()
'new code
'get new filename by appending .tmp to the original filename
Dim tmpFilePath As String = SaveFileDialog1.FileName & ".tmp"
IO.File.WriteAllText(tmpFilePath, SaveFileDialog1.FileName)
End Sub

总的来说@Spyros P.是正确的，我所做的只是我添加了SaveFileDialog1.ShowDialog变量