Copy from a variable Directory to a Fixed Location

[John Baker]

Hi:

I need to copy the entire directory that my .mdb file is sitting in to another drive and
directory, and am having trouble with the syntax.

The following is intended to copy the contents of the full directory the mdb is in into a
directory called: C:/pie

Function CopyBack()
ThisPlace = CurrentProject.Path
fromfile= (ThisPlace)&/*.*
FileCopy fromfile, C:/pie/*.*
End Function

Being a bit slow on the uptake, I have a problem with the syntax and am uncertain how to
resolve it. Your help would be appreciated.

Best

John Baker

[John Baker]

Chuck I tried this today, and it comes back with the fact that it contains a function that
can not be found. Any ideas? Note that this is Access 2000, and i suppose could lack the
File Copy!

Best

John Baker

Chuck Grimsby <c.*******@worldnet.att.net.invalid> wrote:

ThisPlace = CurrentProject.Path
fromfile = dir$(ThisPlace & "\*.*")
While fromFile <> ""
FileCopy thisplace & "\" & fromfile, _
"C:\pie\" & fromfile
fromfile = Dir
Wend

[HJ]

It sounds like a missing reference or an incorrect reference priority order.
Check the Microsoft DAO 3.6 Object Library and the Microsoft Visual Basic
for Applications Extensibility 5.3 references. You may need to change the
priority.

HJ

"John Baker" <Ba******@Verizon.net> wrote in message
news:cr********************************@4ax.com...

Chuck I tried this today, and it comes back with the fact that it contains a function that can not be found. Any ideas? Note that this is Access 2000, and i suppose could lack the File Copy!

Best

John Baker

Chuck Grimsby <c.*******@worldnet.att.net.invalid> wrote:

ThisPlace = CurrentProject.Path
fromfile = dir$(ThisPlace & "\*.*")
While fromFile <> ""
FileCopy thisplace & "\" & fromfile, _
"C:\pie\" & fromfile
fromfile = Dir
Wend

[John Baker]

Chuck:

Thanks very much -- that was exactly what I needed.

Best

John Baker

Chuck Grimsby <c.*******@worldnet.att.net.invalid> wrote:

ThisPlace = CurrentProject.Path
fromfile = dir$(ThisPlace & "\*.*")
While fromFile <> ""
FileCopy thisplace & "\" & fromfile, _
"C:\pie\" & fromfile
fromfile = Dir
Wend

[John Baker]

Chuck I tried this today, and it comes back with the fact that it contains a function that
can not be found. Any ideas? Note that this is Access 2000, and i suppose could lack the
File Copy!

Best

John Baker

Chuck Grimsby <c.*******@worldnet.att.net.invalid> wrote:

ThisPlace = CurrentProject.Path
fromfile = dir$(ThisPlace & "\*.*")
While fromFile <> ""
FileCopy thisplace & "\" & fromfile, _
"C:\pie\" & fromfile
fromfile = Dir
Wend

[HJ]

It sounds like a missing reference or an incorrect reference priority order.
Check the Microsoft DAO 3.6 Object Library and the Microsoft Visual Basic
for Applications Extensibility 5.3 references. You may need to change the
priority.

HJ

"John Baker" <Ba******@Verizon.net> wrote in message
news:cr********************************@4ax.com...

Chuck I tried this today, and it comes back with the fact that it contains a function that can not be found. Any ideas? Note that this is Access 2000, and i suppose could lack the File Copy!

Best

John Baker

Chuck Grimsby <c.*******@worldnet.att.net.invalid> wrote:

ThisPlace = CurrentProject.Path
fromfile = dir$(ThisPlace & "\*.*")
While fromFile <> ""
FileCopy thisplace & "\" & fromfile, _
"C:\pie\" & fromfile
fromfile = Dir
Wend