Copy Paste a file into a folder with the current dat

C

casan.mike

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
 
D

Dave Peterson

Check your earlier post.

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top