將路徑保存到txt文件（VB.net）

Question

因此，基本上，我正在執行“另存為”按鈕，並且在保存文件時，我希望從已保存文件的路徑轉到另一個完全不同的txt文件。

Private Sub saveas_Click(sender As Object, e As EventArgs) Handles Saveas.Click
    SaveFileDialog1.InitialDirectory = "C:\Users\marce"
    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

那么，您的問題是否也在寫入其他文件？ 還是以某種方式從SaveFileDialog返回兩個不同的文件名？ 如果是后者，我不認為這可以做到。

如果是前者，那么您已經知道如何寫入文本文件，因此此答案似乎是多余的。 仍然，以下代碼（假設“完全不同的txt文件”是通過在原始文件名后附加“ .tmp”來命名的）將原始路徑保存到第二個文件：

Private Sub saveas_Click(sender As Object, e As EventArgs) Handles Saveas.Click
    SaveFileDialog1.InitialDirectory = "C:\Users\marce"
    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:\Users\marce"
    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的變量。