Run-time Error 3011...

[Rjc8513]

I am attempting to have the user select the folder in which to save a backup file. But, I get run-time Error 3011. Here is the code:

Dim dbs As DAO.Database
Dim fDialog As Office.FileDialog
Dim FolderName As String
Dim FileName As String

Set dbs = CurrentDb()
Set fDialog = _
Application.FileDialog(msoFileDialogFolderPicker)

With fDialog
.AllowMultiSelect = False
.Title = "Select location for backup file..."
.InitialView = msoFileDialogViewDetails
.InitialFileName = "TEMP"
If .Show = True Then
For Each FolderSelected In .SelectedItems
FolderName = FolderSelected & "\"
Next
End If
End With

FileName = "mstrarcv.txt"
DoCmd.TransferText acExportDelim, , FolderName, FileName

The error message appears on the "Do.Cmd..." line.

 

[JerryKlmns]

Wrong syntax of docmd.TransferText method! You don't define the table/query to export and the file path is also wrong

DoCmd.TransferText acExportDelim, YourTableHere, FolderName & "\" & FileName

 

[JerryKlmns]

Forgot one comma there
Sorry...


DoCmd.TransferText acExportDelim, , YourTableHere, FolderName & "\" & FileName