FileCopy command - Runtime error 52 Bad File Name or Number

[TracyWants2Know]

Access Version: 2002 SP3
OS: MS Windows XP Professional

Code from Module:
Dim txtFileNameBuES As String
Dim txtFileNameBuES XP As String
Dim txtPathNameBuTo As String

txtFileNameBuES = DLookup("[ESPCLoc]", "Variables" )
txtFileNameBuES XP = DLookup("[DBLoc]", "Variables" )
txtPathNameBuTo = DLookup("[BackupLoc]", "Variables" )

cpyst1 = Chr$(34) & txtFileNameBuES & Chr$(34)
cpyst2 = Chr$(34) & txtFileNameBuES XP & Chr$(34)
cpyst3 = Chr$(34) & txtPathNameBuTo & "\ExpressScore. mdb" & Chr$(34)
cpyst4 = Chr$(34) & txtPathNameBuTo & "\ExpressScoreX P.mdb" & Chr$(34)

FileCopy cpyst1, cpyst3
FileCopy cpyst2, cpyst4
---
Contents of fields in table:
txtFileNameBuES =C:\Program Files\WorkKeys\ Working\Express Score.mdb
txtFileNameBuES XP=C:\Program Files\WorkKeys\ Working\Express Score.mdb
txtPathNameBuTo =C:\WorkKeys\Ba ckup

I am trying to make a copy of two files ES and ESXP into the backup folder. Different sites using this have different locations for their files, so I'd prefer not to hardcode the path.

I get the error message listed in the Title. Not sure how to use the Immediate indow in Debug to check, or what else to do. I have been searching all day with no luck. Thanks.

[ADezii]

Hello Tracy, try:

Dim txtFileNameBuES As String
Dim txtFileNameBuESXP As String
Dim txtPathNameBuTo As String
 
txtFileNameBuES = DLookup("[ESPCLoc]", "Variables")
txtFileNameBuESXP = DLookup("[DBLoc]", "Variables")
txtPathNameBuTo = DLookup("[BackupLoc]", "Variables")
 
FileCopy txtFileNameBuES, txtPathNameBuTo & "\ExpressScore.mdb"
FileCopy txtFileNameBuESXP, txtPathNameBuTo & "\ExpressScoreXP.mdb"

[TracyWants2Know]

YEESSSSS!!! Thank you very much, that worked perfectly!!!

[ADezii]

YEESSSSS!!! Thank you very much, that worked perfectly!!!

You are quite welcome. I guess you can now change you name from TracyWants2Know to TracyNowKnows! (LOL).

[TracyWants2Know]

What if I wanted to copy multiple files into one?

FileCopy C:\WorkKeys\Roc k.txt+Chester.t xt, C:\WorkKeys\All Files.txt

[ADezii]

What if I wanted to copy multiple files into one?

FileCopy C:\WorkKeys\Roc k.txt+Chester.t xt, C:\WorkKeys\All Files.txt

I'm almost positive that you cannot do that with FileCopy, but all is not lost if the know the File Names and their locations ahead of time. You can create a Batch File that easily performs the multiple File copies, then execute it. The following code will copy the Files One.txt and Two.txt in the C:\Test Directory to the C:\Windows Directory. They will be concatenated and combined into a single File named Big.txt. The Copy process will be verified (/V) and there will no no Overwrite Warning (/Y) should the Destination File exist. Make sure to give the File a *.bat extension and if you need further help, let me know:

'Contents of CopyMany.bat
@Echo Off
cls
Cd\Test
Copy /V /Y 1.txt + 2.txt C:\Windows\Big.txt

[TracyWants2Know]

Can I do this as a Call Shell(Copy ...) or something other than a batch file? I'd like to have all of the code within my access database and not have to distribute a separate batch file too.

[ADezii]

Can I do this as a Call Shell(Copy ...) or something other than a batch file? I'd like to have all of the code within my access database and not have to distribute a separate batch file too.

Can I do this as a Call Shell(Copy ...) or something other than a batch file? I'd like to have all of the code within my access database and not have to distribute a separate batch file too?

I don't think that this can be accomplished internally within Access, but then again, I nevr had a reason to attempt it.