SaveFileDialog 使用方法
Form1.vb |
Private Sub SC(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click SaveFileDialog1.Title = "Open File" SaveFileDialog1.InitialDirectory = ("C:\") SaveFileDialog1.Filter = "text files (*.txt)|*.txt|All files (*.*)|*.*" If SaveFileDialog1.ShowDialog() = DialogResult.OK Then SaveFile(SaveFileDialog1.FileName) End If End Sub |