SaveFileDialog 使用方法

 
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