Openfiledialog (): Upload & rewrite files in Windows

Dim Sfilename As   String  
Dim Filebrowse As   New System. Windows. Forms. openfiledialog ()
' Note that all this save dialog stuff is optional, but it is nicer than just an inputbox in your cases.
Filebrowse. addextension =   True  
Filebrowse. defaultext =   " . Txt "  
Filebrowse. validatenames =   True  
Filebrowse. overwriteprompt =   True  
Filebrowse. filename =   " File1.txt "  
Filebrowse. initialdirectory = _
System. environment. getfolderpath (environment. specialfolder. Personal)
Filebrowse. restoredirectory =   True  
Filebrowse. Title =   " Please enter a file name to save under "  

Filebrowse. showdialog ()

Sfilename = Filebrowse. filename

Dim Mynewfile As   New System. Io. streamwriter (sfilename, False )
Mynewfile. writeline ( " -- New filename -- " )
Mynewfile. Close ()