Filecopy with error message of "File not found" error

Hi,I have a notes application works well for all users except one user got this message: “File not found”, I trace the code, this message shows on this line of code:

fileNum% = Freefile()

outputFileNameStr=doc.Apploc(0) & “CCL_)88” & “009” & “678” & “_” & format(Now,“yyy”) & “.txt”

Filecopy “Financeupload.txt”, outputFileNameStr

The same code works for all users, however, one user got this message after her workstation has been reinstalled a few days ago.

Subject: More info

Hi Peter,

try to implement few debug parameters. Print current working direcory prior the error row (in case first parameter for file copy is relative) using CurDir function. Also print the result of function in second parameter and compare both paths. First path has to exists and second has to be valid.

outputFileNameStr=doc.Apploc(0) & "CCL_)88" & "009" & "678" & "_" & Format(Now,"yyy") & ".txt"

Print Curdir

Print outputFileNameStr	

Filecopy "Financeupload.txt", outputFileNameStr

M