Save As Dialog

[Faiek]

Hey,
I have received this code used to create a textfile and insert data into it from a board user, but I would like to expand on it.

Open Application.InputBox("please specify file and path", Type:=2) For Output As #1
    Print #1, Me.TextBox1.Text
    Close #1

Is it possible to implement the save as dialog instead of the inputbox?

Thanks,
Faiek

 

[Ruddles]

Try this:-

  Dim sFileName As String
 
  sFileName = Application.GetSaveAsFilename(FileFilter:="Text files (*.txt), *.txt")
  If sFileName = "False" Then Exit Sub

That only gets the file name and stores it in sFilename - it doesn't actually do any saving.