unable to copy file

[YADAV.DHARMESH]

i am novice to access and trying to copy file from source folder to destination folder using following code in access but its not working

Private Sub Command9_Click()



Dim strSource As String
Dim strDest As String
Dim sPath As String

strSource = Forms!frmScanUpload.txtfilename '- Path/Name of the file to be copied

Me.DocName = DocNameGenerat.Value

strDest = CurrentProject.Path & "\ScanDocument\" & Format(Me.DocName) & ".pdf" '- Path/Name for copying to file to

Call FileCopy(strSource, strDest)

MsgBox "File Transferred"


Me.DocName = "#" & strDest & "#"

End Sub


request to do correct the code

[JoeM]

Do you have a Procedure named "FileCopy"?
If not, I don't think you want to use the "Call" command. You usually use that to Call other procedures you have created.
If you are just trying to using Access's FileCopy command, drop the word "Call".

If it still does not work, make sure that you are referencing a valid, existing file to copy, and the location you are copying to actually exists.
You can do that with a message box, i.e.

MsgBox "Copy from: " & strSource & vbCrLf & "Copy to: " & strDest

[YADAV.DHARMESH]

ok got it

thanks

msg box shows as follows


message clearly shows source path along with file and destination path + file

However the file is not copied to destinated folder

if you required further information let me know

many thanks

[JoeM]

Did you try making the change I mentioned in the first part of my previous reply?

[YADAV.DHARMESH]

yes i remove "call"

[JoeM]

I tested it out, and you actually need to remove the parentheses too, i.e.:

FileCopy strSource, strDest

I tested it out, and it works. So as long as you have valid file paths and names, it should work.
If it does not, I imagine you should be getting errors. If you are, what are the error codes/messages?

[YADAV.DHARMESH]

now it works

thank you very much!!!!

[JoeM]

Excellent! Glad I could help!