Try this
Code:
"Put " & App.Path & "\" & strCompanyName & ".txt" & " " & "htdocs/" & strCompanyName & ".txt"