学习使用
MSDN – SaveFileDialog的
documentation就是一个例子
Private Sub button1_Click(sender As Object,e As System.EventArgs) Dim myStream As Stream Dim saveFileDialog1 As New SaveFileDialog() saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" saveFileDialog1.FilterIndex = 2 saveFileDialog1.RestoreDirectory = True If saveFileDialog1.ShowDialog() = DialogResult.OK Then myStream = saveFileDialog1.OpenFile() If (myStream IsNot nothing) Then ' Code to write the stream goes here. myStream.Close() End If End If End Sub