vb.net - How to implement a SaveFileDialog in my code, where I am using a FileSteam object -

so here code method, cannot seem figure out how implement save file dialog within... information or guidance highly appreciated.

private sub btsave_click(sender system.object, e system.eventargs) handles btsave.click         if (cbperiod.selecteditem isnot nothing)             try                 using connect new sqlconnection(connectionstring)                     dim command new sqlcommand()                     command.commandtext = selectquery                     command.parameters.addwithvalue("@period", cbperiod.selecteditem.tostring)                     command.connection = connect                     dim filename string                     filename = "data.txt"                     dim seqno integer = 0                     dim currdocno string = ""                     dim prevdocno string = ""                     using fileobject new filestream(filename, filemode.create, fileaccess.write, fileshare.none)                         using streamwriterobj new streamwriter(fileobject)                             connect.open()                             using reader sqldatareader = command.executereader()                                 dim fieldcount integer = reader.fieldcount - 1                                 = 0 fieldcount                                     streamwriterobj.write(reader.getname(i).tostring)                                     streamwriterobj.write(" @ ")                                 next                                 streamwriterobj.writeline()                                 while reader.read()                                     currdocno = reader.getvalue(reader.getordinal("Документno")).tostring                                     streamwriterobj.write(reader.item(0))                                     = 1 fieldcount                                         currdocno = reader.getvalue(reader.getordinal("Документno")).tostring                                         if (reader.getname(i).equals("ПореденНомер", stringcomparison.invariantcultureignorecase))                                             if (currdocno = prevdocno)                                                 seqno += 1                                                 streamwriterobj.write(seqno)                                             else                                                 seqno = 1                                                 streamwriterobj.write(" @ ")                                                 streamwriterobj.write(seqno)                                             end if                                         else                                             streamwriterobj.write(" @ ")                                             streamwriterobj.write(reader.item(i))                                         end if                                     next                                     prevdocno = currdocno                                     streamwriterobj.writeline()                                 loop                                 reader.close()                             end using                             connect.close()                             messagebox.show("export successful.")                         end using                     end using                 end using             catch ex sqlexception                 messagebox.show(ex.message.tostring)             end try         else             messagebox.show("please select value!")         end if     end sub 

if need further information let me know. can see have file object , guess need add savefiledialog how data streamwriter has savefiledialog?

use savefiledialog filename this

dim filename string ' filename = "data.txt" using sfd new savefiledialog()     sfd.filter = "text files (*.txt)|*.txt"     if sfd.showdialog() = windows.forms.dialogresult.ok         filename = sfd.filename     else         throw new exception("user canceled out of save dialog")     end if end using 

don't explicitly call close() on disposable objects have wrapped in using blocks. dispose method called , closes @ end using

lastly, can remove filestream , use streamwriter create file using this constructor

' using fileobject new filestream(filename, filemode.create, fileaccess.write, fileshare.none) ' using streamwriterobj new streamwriter(fileobject) using streamwriterobj new streamwriter(path:=filename, append:=false)