Run-time error '3044'

[MarkMcAllister]

Greetings,


I have a BE database, that when opened, opens a form for saving the results of a query to a text file on the desktop.
It works fine, if the full path is entered.
The problem is, I want this saved on any users' desktop.
I did some digging and found the %userprofile% variable, which when used, gives me the error.
I understand this should work in both Windows XP and Windows 7, which are the environments the full DB will operate in.
So far the "EXPORT" button on the form has the following for the code:

Private Sub BTN_Export_Click()
 DoCmd.TransferText acExportDelim, , "QRY_ExportPublicComment", "C:\Users\Mark N. McAllister\Desktop\PubComExp.txt"
End Sub

When I tried this:

Private Sub BTN_Export_Click()
 Dim strPath As String
 strPath ="%userprofile%\desktop\PubComExp.txt"
 DoCmd.TransferText acExportDelim, , "QRY_ExportPublicComment", strPath
End Sub

the error occurs.

What's wrong?

TIA
MNM

[ranman256]

sUser = Environ("Username")

[MarkMcAllister]

sUser = Environ("Username")

Thanks, but I'm not sure where or how to use this...
MNM

[MarkMcAllister]

Greetings,
While scrounging around the web, I came across something quite interesting.
On http://windowssecrets.com/ the user HansV posted some modules and a form in the thread here;
http://windowssecrets.com/forums/sho...-Access-(2003)
This allows the user to open the SaveAs dialogue box.
I've decided to try this route, as it seems the path needs to be hard-coded into the transfer method.