i am trying to write a file in the following way but its showing access denied error

Code:
'    tmp = App.Path & "\" & DoctorRs("CF_DOCTORCODE") & "\" & "Sign.jpg"
'    Open App.Path & "\" & DoctorRs("CF_DOCTORCODE") & "\" & DoctorRs("CF_DOCTORCODE") & ".txt" For Output As #1
'    Print #1, tmp
'    Close #1
Thanks in advance