VBA code for Save As Text(MS-DOS).txt file w/ choice of location

[susanmarie2300]

I would like my users to be able to hit a button in the spreadsheet and have the Save As dialog box pop up already set to save the document as ta Text(MS-DOS).txt file but still allow them to choose the name & location where the file will be saved.

Can anyone help me with the code for this? I tried creating a macro but it doesn't give me the code.

 

[Sektor]

Look here.

 

[lrobbo314]

Something like this...

Sub test()
Dim lngCount As Long
Dim str As String
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Show
    
    For lngCount = 1 To .SelectedItems.Count
        str = .SelectedItems(lngCount)
    Next lngCount

End With

ActiveWorkbook.SaveAs ActiveWorkbook.Name & ".txt", xlTextMSDOS

End Sub

 

[susanmarie2300]

So, after looking at responses from both Sektor & Irobbo314 below is the code that is working for what I want.
Is there a way to put in an escape for the user? Right now if I run the macro and hit cancel in the Save As dialog box it saves a txt file with the name False.
Is there a way to just have it cancel and go back to the workbook?

Sub TextFileSave()
    Dim newFile As String, fName As String, gName, fileSaveName
    gName = "FGM_"
    fName = Range("A2").Value
    newFile = gName & " " & fName & " " & Format$(Date, "dd-mm-yyyy")
    fileSaveName = Application.GetSaveAsFilename(newFile, "Text (MS-DOS) (*.txt), *.txt")
    ThisWorkbook.SaveAs fileSaveName, xlTextMSDOS
End Sub

 

[susanmarie2300]

I found the answer on another post.
Thanks for all the help!

If fileSaveName <> False Then ThisWorkbook.SaveAs fileSaveName, xlTextMSDOS