Hi Guys,

I have a problem with this Sub:

---
Sub CopyFiles()

'Create the folder with the current date
MkDir "s:\Aat\APA acc\GEOFFROY\CPI Mensuels\ALL APA Positions
\Database_" & Format(Date, "yyyymmdd")


'Copy the files created with Olympic
Set newDir = "s:\Aat\APA acc\GEOFFROY\CPI Mensuels\ALL APA Positions
\Database_" & Format(Date, "yyyymmdd")
Dim SourceFile, DestinationFile
SourceFile = "Q:\Products\Aat\APA Database\Bonds Database
\fapa_bonds.xls" ' Define source file name.
DestinationFile = newDir
FileCopy SourceFile, DestinationFile ' Copy source to target.


End Sub
---
I managed 'to create the folder with the current date', however, I
cannot move the file to this folder. The error occurs at the line
Set newDir = "......"

Thanks a lot to help me guys, and please don't laugh if it is a simple
"" or (), because I am a beginner...
:-)

Mike

Check your earlier post.

(E-Mail Removed) wrote:
>
> Hi Guys,
>
> I have a problem with this Sub:
>
> ---
> Sub CopyFiles()
>
> 'Create the folder with the current date
> MkDir "s:\Aat\APA acc\GEOFFROY\CPI Mensuels\ALL APA Positions
> \Database_" & Format(Date, "yyyymmdd")
>
> 'Copy the files created with Olympic
> Set newDir = "s:\Aat\APA acc\GEOFFROY\CPI Mensuels\ALL APA Positions
> \Database_" & Format(Date, "yyyymmdd")
> Dim SourceFile, DestinationFile
> SourceFile = "Q:\Products\Aat\APA Database\Bonds Database
> \fapa_bonds.xls" ' Define source file name.
> DestinationFile = newDir
> FileCopy SourceFile, DestinationFile ' Copy source to target.
>
> End Sub
> ---
> I managed 'to create the folder with the current date', however, I
> cannot move the file to this folder. The error occurs at the line
> Set newDir = "......"
>
> Thanks a lot to help me guys, and please don't laugh if it is a simple
> "" or (), because I am a beginner...
> :-)
>
> Mike

--

Dave Peterson